hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DONGSHENG6/费用模块/u_ch_fee_check_seae.~pas

1803 lines
57 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

{$INCLUDE t_main.inc}
unit u_ch_fee_check_seae;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ADODB, wwdbdatetimepicker, wwdbedit, Wwdotdot,
Wwdbcomb, wwdblook, StdCtrls, DBCtrls, RxLookup, Mask, dxDBTLCl,
dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, ComCtrls, bsSkinTabs,
bsSkinCtrls, u_fee_check, u_fee_zhu, ExtCtrls, bsdbctrls, Menus, XPMenu,
Grids, Wwdbigrd, Wwdbgrid, bsSkinBoxCtrls,inifiles;
type
Tfrm_ch_fee_check_seae = class(TForm)
t_op_seae1: TDataSource;
t_op_state: TADOQuery;
t_op_state1: TDataSource;
bsSkinNotebook1: TbsSkinNotebook;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
t_op_seae2: TDataSource;
t_op_seae_fen1: TDataSource;
t_op_seae_fen: TADOQuery;
bsSkinPanel2: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
bsSkinButton3: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinPanel4: TbsSkinPanel;
bsSkinPanel5: TbsSkinPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label19: TLabel;
Label17: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Label125: TLabel;
Label15: TLabel;
Label7: TLabel;
Label124: TLabel;
Label146: TLabel;
Label145: TLabel;
Label32: TLabel;
Label21: TLabel;
Label27: TLabel;
Label30: TLabel;
Label31: TLabel;
Label12: TLabel;
Label11: TLabel;
Label13: TLabel;
DBEdit5: TDBEdit;
Label126: TLabel;
Label25: TLabel;
Label34: TLabel;
Label39: TLabel;
Label18: TLabel;
Label73: TLabel;
Label22: TLabel;
Label35: TLabel;
Label26: TLabel;
Label28: TLabel;
Label9: TLabel;
Label10: TLabel;
Label8: TLabel;
Label16: TLabel;
Label23: TLabel;
DBMemo3: TDBMemo;
Label24: TLabel;
DBMemo4: TDBMemo;
Label29: TLabel;
DBMemo5: TDBMemo;
Label33: TLabel;
DBMemo6: TDBMemo;
Label164: TLabel;
DBEdit81: TDBEdit;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
Label168: TLabel;
DBEdit80: TDBEdit;
Label6: TLabel;
Label14: TLabel;
Label20: TLabel;
Label40: TLabel;
bsSkinButton4: TbsSkinButton;
DBEdit6: TDBEdit;
fra_fee_check1: Tfra_fee_check;
dxDBGridCurrencyColumn1: TdxDBGridColumn;
dxDBGridCurrencyColumn2: TdxDBGridColumn;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid3: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridCheckColumn;
dxDBGrid2Column3: TdxDBGridDateColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridMaskColumn;
dxDBGrid3Column6: TdxDBGridColumn;
dxDBGrid3Column7: TdxDBGridColumn;
dxDBGrid2Column73: TdxDBGridColumn;
DBEdit18: TDBEdit;
Label65: TLabel;
DBEdit4: TDBEdit;
bsSkinButton7: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
Label43: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
DBEdit12: TDBEdit;
XPMenu1: TXPMenu;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinGroupBox5: TbsSkinGroupBox;
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox5: TbsSkinDBCheckRadioBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
DBEdit20: TDBEdit;
RxDBLookupCombo23: TRxDBLookupCombo;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
wwDBDateTimePicker9: TwwDBDateTimePicker;
bsSkinDBCheckRadioBox7: TbsSkinDBCheckRadioBox;
wwDBDateTimePicker10: TwwDBDateTimePicker;
DBEdit41: TDBEdit;
bsSkinDBCheckRadioBox8: TbsSkinDBCheckRadioBox;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
DBMemo11: TDBMemo;
DBMemo12: TDBMemo;
bsSkinGroupBox3: TbsSkinGroupBox;
dxDBGrid4: TdxDBGrid;
dxDBGridButtonColumn1: TdxDBGridButtonColumn;
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
dxDBGridDateColumn7: TdxDBGridDateColumn;
dxDBGridDateColumn8: TdxDBGridDateColumn;
dxDBGridCheckColumn1: TdxDBGridCheckColumn;
dxDBGridDateColumn9: TdxDBGridDateColumn;
dxDBGridCheckColumn2: TdxDBGridCheckColumn;
dxDBGridDateColumn10: TdxDBGridDateColumn;
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
t_op_card: TADOQuery;
t_op_card1: TDataSource;
DBEdit55: TDBEdit;
DBEdit56: TDBEdit;
DBEdit53: TDBEdit;
DBEdit54: TDBEdit;
DBEdit10: TDBEdit;
DBEdit17: TDBEdit;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
DBEdit25: TDBEdit;
DBEdit59: TDBEdit;
DBEdit27: TDBEdit;
DBEdit60: TDBEdit;
DBEdit61: TDBEdit;
DBEdit70: TDBEdit;
DBEdit71: TDBEdit;
DBEdit72: TDBEdit;
DBEdit73: TDBEdit;
DBEdit26: TDBEdit;
DBEdit74: TDBEdit;
DBEdit66: TDBEdit;
DBEdit67: TDBEdit;
DBEdit68: TDBEdit;
DBEdit69: TDBEdit;
DBEdit64: TDBEdit;
DBEdit65: TDBEdit;
DBEdit62: TDBEdit;
DBEdit63: TDBEdit;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
bsSkinButton1: TbsSkinButton;
PopupMenu3: TPopupMenu;
N37: TMenuItem;
N38: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
t_op_seae: TADOStoredProc;
DBEdit11: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
bsSkinDBCheckRadioBox6: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox9: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox10: TbsSkinDBCheckRadioBox;
bsSkinDBCheckRadioBox11: TbsSkinDBCheckRadioBox;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
bsSkinTabSheet5: TbsSkinTabSheet;
t_ch_fee_truck: TADOQuery;
t_ch_fee_truck1: TDataSource;
Panel1: TPanel;
bsSkinButton2: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
wwDBGrid1: TwwDBGrid;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
bsSkinTabSheet6: TbsSkinTabSheet;
bsSkinTabSheet7: TbsSkinTabSheet;
dxDBGrid2Column74: TdxDBGridColumn;
dxDBGrid2Column75: TdxDBGridColumn;
dxDBGrid2Column76: TdxDBGridColumn;
dxDBGrid2Column77: TdxDBGridColumn;
Panel2: TPanel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column81: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column79: TdxDBGridColumn;
dxDBGrid1Column80: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column73: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridDateColumn;
dxDBGrid1Column17: TdxDBGridDateColumn;
dxDBGrid1Column18: TdxDBGridDateColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column22: TdxDBGridDateColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridMaskColumn;
dxDBGrid1Column27: TdxDBGridMaskColumn;
dxDBGrid1Column28: TdxDBGridMaskColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column30: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridDateColumn;
dxDBGrid1Column32: TdxDBGridMaskColumn;
dxDBGrid1Column33: TdxDBGridMaskColumn;
dxDBGrid1Column34: TdxDBGridMaskColumn;
dxDBGrid1Column35: TdxDBGridMaskColumn;
dxDBGrid1Column36: TdxDBGridMaskColumn;
dxDBGrid1Column37: TdxDBGridMaskColumn;
dxDBGrid1Column38: TdxDBGridMaskColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column40: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column61: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column63: TdxDBGridMaskColumn;
dxDBGrid1Column64: TdxDBGridMaskColumn;
dxDBGrid1Column65: TdxDBGridDateColumn;
dxDBGrid1Column66: TdxDBGridMaskColumn;
dxDBGrid1Column67: TdxDBGridMaskColumn;
dxDBGrid1Column72: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridMaskColumn;
dxDBGrid1Column69: TdxDBGridMaskColumn;
dxDBGrid1Column70: TdxDBGridMaskColumn;
dxDBGrid1Column74: TdxDBGridMaskColumn;
dxDBGrid1Column75: TdxDBGridMaskColumn;
dxDBGrid1Column71: TdxDBGridMaskColumn;
dxDBGrid1Column76: TdxDBGridColumn;
dxDBGrid1Column77: TdxDBGridColumn;
dxDBGrid1Column78: TdxDBGridColumn;
dxDBGrid1Column82: TdxDBGridColumn;
Panel3: TPanel;
Label41: TLabel;
bsSkinComboBox1: TbsSkinComboBox;
bsSkinEdit1: TbsSkinEdit;
bsSkinButton8: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
wwDBDateTimePicker2: TwwDBDateTimePicker;
Label42: TLabel;
dxDBGrid1Column83: TdxDBGridColumn;
bsSkinButton15: TbsSkinButton;
dxDBGrid1Column84: TdxDBGridCheckColumn;
dxDBGrid1Column85: TdxDBGridColumn;
dxDBGrid1Column86: TdxDBGridColumn;
dxDBGrid1Column87: TdxDBGridColumn;
N28: TMenuItem;
dxDBGrid1Column88: TdxDBGridColumn;
dxDBGrid1Column89: TdxDBGridCheckColumn;
bsSkinButton16: TbsSkinButton;
dxDBGrid1Column90: TdxDBGridColumn;
bsSkinButton17: TbsSkinButton;
bsSkinButton18: TbsSkinButton;
dxDBGrid1Column91: TdxDBGridColumn;
dxDBGrid1Column92: TdxDBGridColumn;
dxDBGrid1Column93: TdxDBGridColumn;
dxDBGrid1Column94: TdxDBGridColumn;
dxDBGrid1Column95: TdxDBGridColumn;
Label44: TLabel;
DBMemo1: TDBMemo;
Label48: TLabel;
DBMemo2: TDBMemo;
Label58: TLabel;
DBEdit16: TDBEdit;
Label59: TLabel;
DBEdit19: TDBEdit;
procedure FormShow(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton10Click(Sender: TObject);
procedure DBEdit6Change(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure dxDBGrid1Column3CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure dxDBGridMaskColumn3CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure dxDBGrid1Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure dxDBGridMaskColumn2CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean;
var ADone: Boolean);
procedure bsSkinButton7Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure bsSkinButton1Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure N20Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure fra_fee_check1bsSkinButton1Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton4Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton10Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton12Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton8Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton5Click(Sender: TObject);
procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinButton16Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton17Click(Sender: TObject);
procedure bsSkinButton18Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton16Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton2Click(Sender: TObject);
procedure fra_fee_check1bsSkinButton15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
close_select_num:Integer;
end;
var
frm_ch_fee_check_seae: Tfrm_ch_fee_check_seae;
frm_op_seae_check_create:boolean;
implementation
uses u_main, my_sys_function, u_ch_fee_zhupiao,
u_op_seae_assistant,u_sys_progress, u_op_close_select,
u_op_seae_check_fenzhang;
{$R *.dfm}
procedure Tfrm_ch_fee_check_seae.FormShow(Sender: TObject);
var s_SqlSea:string;
inifile1:Tinifile;
begin
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress:=tfrm_sys_progress.Create(self);
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>';
frm_sys_progress.Show;
frm_sys_progress.bsSkinGauge1.MaxValue:=10;
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
wwDBDateTimePicker2.Date:=Now;
frm_op_seae_check_create:=true;
{
s_SqlSea:='Select distinct top 100 s.* from t_op_seae s '
+' Inner Join t_ch_fee i on (s.<2E><><EFBFBD><EFBFBD>=i.<2E><><EFBFBD><EFBFBD>) '
+' where s.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=s.<2E><><EFBFBD><EFBFBD> and '
+ open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and i.<2E><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'s','','desc');
}
{
//ljp
s_SqlSea:='select top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc');
}
{
s_SqlSea:='select distinct top 100 * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
}
// hxt
s_SqlSea:='select top 100 * from t_op_seae t1 where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>˷<EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>')
+' and EXISTS (select ''X'' from t_op_seae t2,t_ch_fee f where f.<2E><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+','+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+') and f.<2E><><EFBFBD><EFBFBD>=t2.<2E><><EFBFBD><EFBFBD> and t2.<2E><><EFBFBD><EFBFBD>=t1.<2E><><EFBFBD><EFBFBD>)'
+default_sort(53,'t1','','desc');
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+5;
t_op_state.close;
t_op_seae.Close;
//showmessage(s_SqlSea);
t_op_seae.Parameters.ParamByName('SQLStr').value:=s_SqlSea;
t_op_seae.open;
frm_sys_progress.bsSkinGauge1.ProgressText:='t_op_seae';
t_op_seae_fen.open;
frm_sys_progress.bsSkinGauge1.ProgressText:='t_op_seae_fen';
t_op_state.open;
frm_sys_progress.bsSkinGauge1.ProgressText:='t_op_state';
t_op_card.open;
// t_ch_fee_truck.open;
frm_sys_progress.bsSkinGauge1.ProgressText:='t_op_card';
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+4;
loadreggrid(dxdbgrid1,true,caption+'1');
loadreggrid(dxdbgrid2,true,caption+'2');
loadwwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
loadwwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
bsSkinPageControl1.Align:=alClient;
fra_fee_check1.limited_str.text:='0011';
fra_fee_check1.chk_accept.Text:=get_parameters_value(101,'FALSE') ;
fra_fee_check1.chk_pay.text:=get_parameters_value(105,'FALSE') ;
fra_fee_check1.ywlb.Text:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' ;
if if_open('025') then
begin
if strtobool(get_parameters_value(64,'false')) then
begin
if if_open('206') then
begin
end
else
begin
fra_fee_check1.t_ch_accept.close;
fra_fee_check1.t_ch_accept.SQL.Clear;
fra_fee_check1.t_ch_accept.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
+' and (<28><><EFBFBD><EFBFBD>=0 or <20><><EFBFBD><EFBFBD> is null)'
+' order by ˳<><CBB3>,CH_ID');
end;
end;
fra_fee_check1.t_ch_accept.DataSource:=t_op_seae2;
fra_fee_check1.t_ch_accept.open;
fra_fee_check1.a_shen_delete.open;
fra_fee_check1.a_shen_modify_old.open;
fra_fee_check1.a_shen_modify_new.open;
fra_fee_check1.bsSkinPanel3.visible:=true;
end
else
begin
fra_fee_check1.bsSkinPanel3.visible:=false;
end;
if if_open('026') then
begin
if strtobool(get_parameters_value(64,'false')) then
begin
if if_open('206') then
begin
end
else
begin
fra_fee_check1.t_ch_pay.close;
fra_fee_check1.t_ch_pay.SQL.Clear;
fra_fee_check1.t_ch_pay.SQL.Add('select top 100 * from t_ch_fee where <20><><EFBFBD><EFBFBD>='
+''''+'<27><>'+''''+' and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> '
+' and (<28><><EFBFBD><EFBFBD>=0 or <20><><EFBFBD><EFBFBD> is null)'
+' order by ˳<><CBB3>,CH_ID');
end;
end;
fra_fee_check1.t_ch_pay.DataSource:=nil;
fra_fee_check1.t_ch_pay.DataSource:=t_op_seae2;
fra_fee_check1.t_ch_pay.open;
fra_fee_check1.p_shen_delete.open;
fra_fee_check1.p_shen_modify_old.open;
fra_fee_check1.p_shen_modify_new.open;
fra_fee_check1.bsSkinPanel5.visible:=true;
end
else
begin
fra_fee_check1.bsSkinPanel5.visible:=false;
end;
if fra_fee_check1.bsSkinPanel3.visible and
fra_fee_check1.bsSkinPanel5.visible then
begin
fra_fee_check1.Panel3.Visible:=true;
fra_fee_check1.t_op_gain.DataSource:=t_op_seae2;
fra_fee_check1.t_op_gain.open;
fra_fee_check1.DBEdit43.DataSource:=t_op_seae2;
fra_fee_check1.t_op_gain_main.DataSource:=t_op_seae2;
fra_fee_check1.t_op_gain_main.open;
end
else
begin
fra_fee_check1.Panel3.Visible:=false;
end;
if strtobool(get_parameters_value(30,'false')) then
begin
bsSkinTabSheet5.TabVisible:=true;
N9.Visible:=true;
N19.Visible:=true;
end
else
begin
bsSkinTabSheet5.TabVisible:=false;
N9.Visible:=false;
N19.Visible:=false;
end;
if strtobool(get_parameters_value(307,'false')) then
begin
bsSkinButton17.Visible:=true;
bsSkinButton18.Visible:=true;
end
else
begin
bsSkinButton17.Visible:=false;
bsSkinButton18.Visible:=false;
end;
if if_open('304') then begin
bsSkinTabSheet6.TabVisible:=true; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>޿<EFBFBD><DEBF><EFBFBD>
end else begin
bsSkinTabSheet6.TabVisible:=false;
end;
if strtobool(get_parameters_value(150,'false')) then
fra_fee_check1.bsSkinPanel10.Visible:=true
else fra_fee_check1.bsSkinPanel10.Visible:=False;
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
if strtoint(get_parameters_value(197,'0'))<>0 then
fra_fee_check1.bsSkinComboBox1.ItemIndex:=strtoint(get_parameters_value(197,'0'))-1
else fra_fee_check1.bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('FEE','FEEVAT',0);
bsSkinComboBox1.ItemIndex:=inifile1.ReadInteger('other','CHECKINDEX',0);
inifile1.Free;
{$IFDEF DLFENZHANG}
{$ELSE}
bsSkinTabSheet6.tabVisible:=false;
{$ENDIF}
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
frm_sys_progress.close;
frm_sys_progress:=nil;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_fee_check_seae.FormClose(Sender: TObject;
var Action: TCloseAction);
var
inifile1:Tinifile;
begin
savereggrid(dxdbgrid1,caption+'1');
savereggrid(dxdbgrid2,caption+'2');
savewwgrid(fra_fee_check1.wwDBGrid1,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
savewwgrid(fra_fee_check1.wwDBGrid2,'<27><><EFBFBD>˳<EFBFBD><CBB3>ھ<EFBFBD><DABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>');
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
inifile1.WriteInteger('other','CHECKINDEX',bsSkinComboBox1.ItemIndex);
{$IFDEF DLFENZHANG}
if assigned(frm_op_seae_check_fenzhang) then
begin
FreeAndNil(frm_op_seae_check_fenzhang);
end;
{$ENDIF}
if assigned(frm_op_seae_assistant) then
FreeAndNil(frm_op_seae_assistant);
frm_op_seae_check_create:=false;
frm_ch_fee_check_seae.Hide;
frm_ch_fee_check_seae.ManualFloat(frm_ch_fee_check_seae.BoundsRect );
frm_main.freeTabs('frm_ch_fee_check_seae');
action:=cafree;
frm_ch_fee_check_seae:=nil;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton10Click(Sender: TObject);
begin
query_seae(3,'0011');
end;
procedure Tfrm_ch_fee_check_seae.DBEdit6Change(Sender: TObject);
begin
if DBEdit6.text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ' then
begin
bsSkinButton11.Enabled:=true;
bsSkinButton4.Enabled:=true;
end
else
begin
bsSkinButton11.Enabled:=false;
bsSkinButton4.Enabled:=false;
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton11Click(Sender: TObject);
begin
if t_op_seae_fen.IsEmpty then
begin
showmessage('û<>з<EFBFBD>Ʊ<EFBFBD><C6B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>');
exit;
end;
bsSkinNotebook1.PageIndex:=1;
t_op_seae2.Enabled:=false;
t_op_seae2.DataSet:=t_op_seae_fen;
t_op_seae2.Enabled:=true;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton3Click(Sender: TObject);
begin
bsSkinNotebook1.PageIndex:=0;
t_op_seae2.Enabled:=false;
t_op_seae2.DataSet:=t_op_seae;
t_op_seae2.Enabled:=true;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton4Click(Sender: TObject);
begin
try
frm_ch_fee_zhupiao:=tfrm_ch_fee_zhupiao.Create (self);
frm_ch_fee_zhupiao.fra_fee_zhu1.fenpiao1.DataSet:=t_op_seae_fen;
with frm_ch_fee_zhupiao do
begin
if if_open('025') then
begin
fra_fee_zhu1.t_ch_accept.close;
fra_fee_zhu1.t_ch_accept.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_accept.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
fra_fee_zhu1.dxDBGrid1.FullExpand;
fra_fee_zhu1.bsSkinPanel3.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel3.visible:=false;
if if_open('026') then
begin
fra_fee_zhu1.t_ch_pay.close;
fra_fee_zhu1.t_ch_pay.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_ch_pay.open;
fra_fee_zhu1.zhupiao1.DataSet:=t_op_seae;
fra_fee_zhu1.dxDBGrid2.FullExpand;
fra_fee_zhu1.bsSkinPanel4.visible:=true;
end
else
fra_fee_zhu1.bsSkinPanel4.visible:=false;
if fra_fee_zhu1.bsSkinPanel3.visible and
fra_fee_zhu1.bsSkinPanel4.visible then
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain.open;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.t_op_gain_fen.Parameters[1].value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
fra_fee_zhu1.t_op_gain_fen.open;
end
else
begin
fra_fee_zhu1.t_op_gain.close;
fra_fee_zhu1.t_op_gain_fen.close;
fra_fee_zhu1.bsSkinTabSheet2.TabVisible:=false;
end;
fra_fee_zhu1.dxDBGrid3.FullExpand;
end;
frm_ch_fee_zhupiao.ShowModal;
finally
;
end;
end;
procedure Tfrm_ch_fee_check_seae.dxDBGrid1Column3CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_check_seae.dxDBGridMaskColumn3CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color_fee(ANode.strings[dxDBGridMaskColumn3.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_check_seae.dxDBGrid1Column2CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid1Column2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_check_seae.dxDBGridMaskColumn2CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGridMaskColumn2.Index]);
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton7Click(Sender: TObject);
var
book1:Tbookmark;
begin
try
book1:=t_op_seae.GetBookmark;
t_op_seae.Requery;
t_op_seae.GotoBookmark(book1);
except
;
end;
end;
procedure Tfrm_ch_fee_check_seae.N10Click(Sender: TObject);
begin
if bsSkinNotebook1.PageIndex=0 then
update_grid_view_no(dxdbgrid1)
else
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_ch_fee_check_seae.N14Click(Sender: TObject);
begin
if bsSkinNotebook1.PageIndex=0 then
update_grid_view_all(dxdbgrid1)
else
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_ch_fee_check_seae.N12Click(Sender: TObject);
begin
if bsSkinNotebook1.PageIndex=0 then
update_grid(dxdbgrid1,12)
else
update_grid(dxdbgrid2,13);
end;
procedure Tfrm_ch_fee_check_seae.N16Click(Sender: TObject);
begin
if bsSkinNotebook1.PageIndex=0 then
grid_save_xls(dxdbgrid1)
else
grid_save_xls(dxdbgrid2);
end;
procedure Tfrm_ch_fee_check_seae.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,t_op_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton1Click(Sender: TObject);
var
Pnt:Tpoint;
begin
Pnt:=bsSkinButton1.ClientToScreen(Point(0,bsSkinButton1.Height));
PopupMenu3.Popup(Pnt.x,Pnt.y);
end;
procedure Tfrm_ch_fee_check_seae.N37Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('00011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N17Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='
+''''+'¼<><C2BC>״̬'+''''+')) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N34Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N36Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N1Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N4Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel1.width/4);
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton2Click(Sender: TObject);
var
i:integer;
begin
{
if t_ch_fee_truck.isempty then
exit;
if (t_ch_fee_truck.State=dsinsert)
or (t_ch_fee_truck.State=dsedit) then
begin
t_ch_fee_truck.post;
end;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
end;
end
else
begin
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>ύ') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>');
exit;
end;
end;
try
frm_main.db.BeginTrans;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
t_ch_fee_truck.post;
end;
end
else
begin
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
t_ch_fee_truck.post;
end;
frm_main.db.CommitTrans;
except
frm_main.db.RollbackTrans;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>ʧ<EFBFBD><CAA7>!');
exit;
end;
}
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton9Click(Sender: TObject);
var
i:integer;
begin
{
if t_ch_fee_truck.isempty then
exit;
if (t_ch_fee_truck.State=dsinsert)
or (t_ch_fee_truck.State=dsedit) then
begin
t_ch_fee_truck.post;
end;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
exit;
end;
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
exit;
end;
end;
end
else
begin
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
exit;
end;
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
exit;
end;
end;
try
frm_main.db.BeginTrans;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
t_ch_fee_truck.post;
end;
end
else
begin
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
t_ch_fee_truck.post;
end;
frm_main.db.CommitTrans;
except
frm_main.db.RollbackTrans;
showmessage('<27><><EFBFBD>ò<EFBFBD><C3B2><EFBFBD><EFBFBD>ύʧ<E1BDBB><CAA7>!');
exit;
end;
}
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton12Click(Sender: TObject);
var
i:integer;
begin
{
if t_ch_fee_truck.isempty then
exit;
if (t_ch_fee_truck.State=dsinsert)
or (t_ch_fee_truck.State=dsedit) then
begin
t_ch_fee_truck.post;
end;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
end;
end
else
begin
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>');
exit;
end;
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>ֹ<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
end;
try
frm_main.db.BeginTrans;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD>޸<EFBFBD>';
t_ch_fee_truck.post;
end;
end
else
begin
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD>޸<EFBFBD>';
t_ch_fee_truck.post;
end;
frm_main.db.CommitTrans;
except
frm_main.db.RollbackTrans;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼<EFBFBD>޸<EFBFBD>ʧ<EFBFBD><CAA7>!');
exit;
end;
}
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton13Click(Sender: TObject);
var
i:integer;
begin {
if t_ch_fee_truck.isempty then
exit;
if (t_ch_fee_truck.State=dsinsert)
or (t_ch_fee_truck.State=dsedit) then
begin
t_ch_fee_truck.post;
end;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
if(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
end;
end
else
begin
if (t_ch_fee_truck.FieldByName('<27>շѽ<D5B7><D1BD><EFBFBD>').asfloat<>0) and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD>ѽ<EFBFBD><D1BD><EFBFBD>').asfloat<>0) then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>㲻<EFBFBD><E3B2BB><EFBFBD>Խ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
if (t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') and
(t_ch_fee_truck.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><>׼<EFBFBD>޸<EFBFBD>') then
begin
showmessage('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD>ܽ<EFBFBD>ֹ<EFBFBD>޸ģ<DEB8><C4A3><EFBFBD>');
exit;
end;
end;
try
frm_main.db.BeginTrans;
if wwDBGrid1.SelectedList.Count>=1 then
begin
for i:=0 to wwDBGrid1.SelectedList.Count-1 do
begin
t_ch_fee_truck.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD>޸<EFBFBD>';
t_ch_fee_truck.post;
end;
end
else
begin
t_ch_fee_truck.edit;
t_ch_fee_truck['<27><><EFBFBD><EFBFBD>״̬']:='<27><>ֹ<EFBFBD>޸<EFBFBD>';
t_ch_fee_truck.post;
end;
frm_main.db.CommitTrans;
except
frm_main.db.RollbackTrans;
showmessage('<27><><EFBFBD>ý<EFBFBD>ֹ<EFBFBD>޸<EFBFBD>ʧ<EFBFBD><CAA7>!');
exit;
end; }
end;
procedure Tfrm_ch_fee_check_seae.N6Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N8Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('
+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N19Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee_truck where <20><><EFBFBD><EFBFBD>״̬<>'
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+') '
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.wwDBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
fee_color(t_ch_fee_truck,wwDBGrid1,Rect,Field);
end;
procedure Tfrm_ch_fee_check_seae.N20Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee )'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N23Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N24Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.N25Click(Sender: TObject);
begin
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
+' and <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''
+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>'+''''+')'
+default_sort(53,'t_op_seae','','desc');
t_op_seae.open;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinPageControl1Change(Sender: TObject);
begin
if frm_op_seae_check_create=false then
exit;
{$IFDEF DLFENZHANG}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet6 then
begin
if not assigned(frm_op_seae_check_fenzhang) then
begin
frm_op_seae_check_fenzhang:=tfrm_op_seae_check_fenzhang.Create (self);
frm_op_seae_check_fenzhang.t_ch_fee_fenzhang.Close;
frm_op_seae_check_fenzhang.t_ch_fee_fenzhang.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_ch_fee_fenzhang.open;
frm_op_seae_check_fenzhang.t_ch_fee.open;
frm_op_seae_check_fenzhang.t_ch_fee_fenzhango.Close;
frm_op_seae_check_fenzhang.t_ch_fee_fenzhango.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_ch_fee_fenzhango.open;
frm_op_seae_check_fenzhang.t_op_fenzhang.Close;
frm_op_seae_check_fenzhang.t_op_fenzhang.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_op_fenzhang.Open;
frm_op_seae_check_fenzhang.t_op_seae_assistant.Close;
frm_op_seae_check_fenzhang.t_op_seae_assistant.sql.Text:='select * from t_op_seae_assistant where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> ';
frm_op_seae_check_fenzhang.t_op_seae_assistant.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_op_seae_assistant.Open;
frm_op_seae_check_fenzhang.t_ch_fee_agentdc.Close;
frm_op_seae_check_fenzhang.t_ch_fee_agentdc.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_ch_fee_agentdc.open;
frm_op_seae_check_fenzhang.t_ch_fee_agentdc_detail.open;
frm_op_seae_check_fenzhang.t_ch_fee_pl.Close;
frm_op_seae_check_fenzhang.t_ch_fee_pl.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_ch_fee_pl.open;
frm_op_seae_check_fenzhang.t_ch_fee_cm.Close;
frm_op_seae_check_fenzhang.t_ch_fee_cm.DataSource:=t_op_seae1;
frm_op_seae_check_fenzhang.t_ch_fee_cm.open;
frm_op_seae_check_fenzhang.t_ch_fee_pl_detail.open;
frm_op_seae_check_fenzhang.t_ch_fee_pl_detailf.open;
frm_op_seae_check_fenzhang.ManualDock(bsSkinTabSheet6,nil,alClient);
frm_op_seae_check_fenzhang.show;
end;
exit;
end;
{$ENDIF}
if bsSkinPageControl1.ActivePage=bsSkinTabSheet7 then
begin
if not assigned(frm_op_seae_assistant) then
begin
frm_op_seae_assistant:=tfrm_op_seae_assistant.Create (self);
frm_op_seae_assistant.t_op_seae_assistant.DataSource:=t_op_seae1;
frm_op_seae_assistant.ManualDock(bsSkinTabSheet7,nil,alClient);
frm_op_seae_assistant.show;
end;
exit;
end;
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton1Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton1Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton4Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton4Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton10Click(
Sender: TObject);
var aAdoQuery:TAdoQuery;
s:string;
begin
if strtobool(get_parameters_value(198,'false')) then
begin
if (trim(t_op_seae.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') and (trim(t_op_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asstring)<>'') then
begin
aAdoQuery:=CreateAdoQuery;
with aAdoQuery do
try
Close;SQL.Clear;
SQL.Add('Select sum(ë<><C3AB><EFBFBD><EFBFBD>) ë<><C3AB><EFBFBD><EFBFBD>,sum(<28><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD>) <20><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD> from t_op_gain');
SQL.Add('where <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae where ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>='+''''+t_op_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asstring+''')');
Open;
s:='<27><><EFBFBD>ĺ<EFBFBD> <20><><EFBFBD><EFBFBD>:'+fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asstring+' ë<><C3AB><EFBFBD><EFBFBD>:'+fieldbyname('<27><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD>').asstring;
Close;SQL.Clear;
SQL.Add('Select sum(ë<><C3AB><EFBFBD><EFBFBD>) ë<><C3AB><EFBFBD><EFBFBD>,sum(<28><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD>) <20><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD> from t_op_gain');
SQL.Add('where <20><><EFBFBD><EFBFBD><>'+''''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+''''+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_seae where ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>='+''''+t_op_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').asstring+''')');
Open;
s:='<27><><EFBFBD><EFBFBD>ǰ <20><><EFBFBD><EFBFBD>:'+fieldbyname('ë<><C3AB><EFBFBD><EFBFBD>').asstring+' ë<><C3AB><EFBFBD><EFBFBD>:'+fieldbyname('<27><><EFBFBD>񲻺<EFBFBD>˰ë<CBB0><C3AB><EFBFBD><EFBFBD>').asstring+#13#10+s;
showmessage(s);
finally
Free;
end;
end;
end;
fra_fee_check1.bsSkinButton10Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton12Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton12Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton8Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton8Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton5Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton5Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.bsSkinEdit1KeyPress(Sender: TObject;
var Key: Char);
var s:string;
begin
if Trim(bsSkinEdit1.Text)='' then Exit;
if Key=#13 then
begin
s:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and '
+open_data('0011','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD>Ա','<27>ͷ<EFBFBD>Ա','<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27>˷<EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>');
if (bsSkinComboBox1.ItemIndex>=0) and (Trim(bsSkinEdit1.Text)<>'') then
begin
s:=s+' and '+bsSkinComboBox1.Text +' like ''%'+bsSkinEdit1.Text+'%''';
end;
s:=s+' '+default_sort(53,'t_op_seae','','desc');
t_op_seae.Close;
t_op_seae.Parameters.ParamByName('SQLStr').value:=s;
t_op_seae.open;
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton8Click(Sender: TObject);
var i :Integer;
begin
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
fra_fee_check1.bsSkinButton10Click(Sender);
fra_fee_check1.bsSkinButton12Click(Sender);
UpdateInviceRemarks(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,'t_op_seae');
end;
end
else
begin
fra_fee_check1.bsSkinButton10Click(Sender);
fra_fee_check1.bsSkinButton12Click(Sender);
UpdateInviceRemarks(t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,'t_op_seae');
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton14Click(Sender: TObject);
var i :integer;
begin
if not (if_open('027') or if_open('146')) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if t_op_seae1.DataSet.IsEmpty then
exit;
if (t_op_seae1.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD><C3B6>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
bsSkinButton8Click(sender);
if if_open('027') and if_open('146') then
begin
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
check_select_feng_all(1,t_op_seae1,fra_fee_check1.t_ch_accept1,fra_fee_check1.t_ch_Pay1,wwDBDateTimePicker2.date);
end;
end
else
begin
check_select_feng_all(1,t_op_seae1,fra_fee_check1.t_ch_accept1,fra_fee_check1.t_ch_Pay1,wwDBDateTimePicker2.date);
end;
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton15Click(Sender: TObject);
begin
if t_op_seae1.DataSet.IsEmpty then
exit;
if (t_op_seae1.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD><C3B6>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if t_op_seae1.DataSet.fieldbyname('<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>').AsBoolean then
begin
if MessageDlg('ȷʵҪȡ<D2AA><C8A1>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbYes,mbNo],0)=mrYes then
begin
t_op_seae1.DataSet.edit;
t_op_seae1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
t_op_seae1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
t_op_seae2.DataSet.post;
end;
end
else
begin
t_op_seae1.DataSet.edit;
t_op_seae1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=1;
t_op_seae1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
t_op_seae2.DataSet.post;
end;
end;
procedure Tfrm_ch_fee_check_seae.dxDBGrid1CustomDraw(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if uppercase(ANode.Strings[dxDBGrid1Column89.Index])='TRUE' then begin
AColor:=clRed;
exit;
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton16Click(Sender: TObject);
var i :integer;
begin
if not (if_open('332') or if_open('337')) then
begin
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
exit;
end;
if t_op_seae1.DataSet.IsEmpty then
exit;
if (t_op_seae1.DataSet.fieldbyname('ҵ<><D2B5>״̬').asstring<>'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
and(t_op_seae1.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>״̬').asstring<>'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>')then
begin
showmessage('ҵ<><D2B5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ҵ<EFBFBD>񡢷<EFBFBD><F1A1A2B7>ö<EFBFBD>û<EFBFBD>з<EFBFBD><D0B7>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
if if_open('332') and if_open('337') then
begin
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
check_select_open_all(1,t_op_seae1);
end;
end
else
begin
check_select_open_all(1,t_op_seae1);
end;
end;
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton13Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton13Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton17Click(Sender: TObject);
begin
if strtobool(get_parameters_value(307,'false')) then
begin
if (trim(t_op_seae1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae1.DataSet.Edit;
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD>ĵ<EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
t_op_seae1.DataSet.Post;
showmessage('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>');
end;
end;
end;
procedure Tfrm_ch_fee_check_seae.bsSkinButton18Click(Sender: TObject);
begin
if strtobool(get_parameters_value(307,'false')) then
begin
if (trim(t_op_seae1.DataSet.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_seae1.DataSet.Edit;
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD>ĵ<EFBFBD>״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ύ';
t_op_seae1.DataSet.Post;
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD>ύ');
end;
end;
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton16Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton16Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton2Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton2Click(Sender);
end;
procedure Tfrm_ch_fee_check_seae.fra_fee_check1bsSkinButton15Click(
Sender: TObject);
begin
fra_fee_check1.bsSkinButton15Click(Sender);
end;
end.
Reference in New Issue View Git Blame Copy Permalink