|
|
unit u_ch_balance_all;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, Menus, XPMenu, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
StdCtrls, DBCtrls, bsdbctrls, RxLookup, Mask, wwdbdatetimepicker,
|
|
|
dxDBTLCl, dxGrClms;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_balance_all = class(TForm)
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinNotebook1: TbsSkinNotebook;
|
|
|
t_ch_balance_all: TADOQuery;
|
|
|
t_ch_balance_all1: TDataSource;
|
|
|
t_ch_fee_do: TADOQuery;
|
|
|
XPMenu1: TXPMenu;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label25: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit1: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
Label1: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsSkinTabSheet11: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet12: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
t_sea: TADOQuery;
|
|
|
t_sea1: TDataSource;
|
|
|
t_air: TADOQuery;
|
|
|
t_air1: TDataSource;
|
|
|
t_ch_fee: TADOQuery;
|
|
|
t_ch_fee1: TDataSource;
|
|
|
t_ch_fee_sum: TADOQuery;
|
|
|
t_ch_fee_sum1: TDataSource;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label5: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Edit4: TEdit;
|
|
|
Edit2: TEdit;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker3: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGrid4: TdxDBGrid;
|
|
|
dxDBGrid3Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid3Column2: TdxDBGridColumn;
|
|
|
dxDBGrid3Column3: TdxDBGridColumn;
|
|
|
dxDBGrid3Column4: TdxDBGridColumn;
|
|
|
dxDBGrid3Column5: TdxDBGridColumn;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column18: TdxDBGridDateColumn;
|
|
|
dxDBGrid2Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid4Column1: TdxDBGridColumn;
|
|
|
dxDBGrid4Column2: TdxDBGridColumn;
|
|
|
dxDBGrid4Column3: TdxDBGridColumn;
|
|
|
dxDBGrid4Column4: TdxDBGridColumn;
|
|
|
dxDBGrid4Column5: TdxDBGridColumn;
|
|
|
dxDBGrid4Column6: TdxDBGridColumn;
|
|
|
dxDBGrid2Column14: TdxDBGridColumn;
|
|
|
dxDBGrid2Column15: TdxDBGridColumn;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
Label18: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Edit8: TEdit;
|
|
|
Edit9: TEdit;
|
|
|
Edit10: TEdit;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker10: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
dxDBGrid5: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
dxDBGridColumn3: TdxDBGridColumn;
|
|
|
dxDBGridColumn4: TdxDBGridColumn;
|
|
|
dxDBGrid6: TdxDBGrid;
|
|
|
dxDBGridColumn5: TdxDBGridColumn;
|
|
|
dxDBGridColumn6: TdxDBGridColumn;
|
|
|
dxDBGridColumn7: TdxDBGridColumn;
|
|
|
dxDBGridColumn8: TdxDBGridColumn;
|
|
|
dxDBGridColumn9: TdxDBGridColumn;
|
|
|
dxDBGridColumn10: TdxDBGridColumn;
|
|
|
dxDBGrid7: TdxDBGrid;
|
|
|
dxDBGrid7Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column6: TdxDBGridDateColumn;
|
|
|
dxDBGrid7Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid7Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid7Column18: TdxDBGridDateColumn;
|
|
|
dxDBGrid7Column11: TdxDBGridColumn;
|
|
|
v_sea_fee: TADOQuery;
|
|
|
v_sea_fee1: TDataSource;
|
|
|
v_air_fee: TADOQuery;
|
|
|
v_air_fee1: TDataSource;
|
|
|
dxDBGrid8: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid8Column21: TdxDBGridColumn;
|
|
|
dxDBGrid8Column22: TdxDBGridColumn;
|
|
|
dxDBGrid9: TdxDBGrid;
|
|
|
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn11: TdxDBGridColumn;
|
|
|
dxDBGridColumn12: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
|
|
|
dxDBGridDateColumn3: TdxDBGridDateColumn;
|
|
|
dxDBGridDateColumn4: TdxDBGridDateColumn;
|
|
|
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
|
|
|
dxDBGridColumn13: TdxDBGridColumn;
|
|
|
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
|
|
|
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid9Column18: TdxDBGridColumn;
|
|
|
dxDBGrid9Column19: TdxDBGridColumn;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinPanel2Resize(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_balance_all: Tfrm_ch_balance_all;
|
|
|
balance_all_open:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_balance_all.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_ch_balance_all.Close;
|
|
|
t_ch_balance_all.SQL.clear;
|
|
|
t_ch_balance_all.SQL.Add('select * from t_ch_balance_all where <20>ʵ<EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''
|
|
|
+' order by <20><><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD> desc');
|
|
|
t_ch_balance_all.open;
|
|
|
t_ch_fee_do.open;
|
|
|
balance_all_open:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_all.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_ch_balance_all.Hide;
|
|
|
frm_ch_balance_all.ManualFloat(frm_ch_balance_all.BoundsRect );
|
|
|
frm_main.freeTabs('frm_ch_balance_all');
|
|
|
action:=cafree;
|
|
|
frm_ch_balance_all:=nil;
|
|
|
balance_all_open:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_all.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_balance_all.bsSkinPanel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(bsSkinPanel2.width/11);
|
|
|
bsSkinButton9.width:=i;
|
|
|
bsSkinButton10.width:=i;
|
|
|
bsSkinButton1.width:=i;
|
|
|
bsSkinButton15.width:=i;
|
|
|
bsSkinButton2.width:=i;
|
|
|
bsSkinButton4.width:=i;
|
|
|
bsSkinButton3.width:=i;
|
|
|
bsSkinButton11.width:=i;
|
|
|
bsSkinButton6.width:=i;
|
|
|
bsSkinButton8.width:=i;
|
|
|
end;
|
|
|
|
|
|
end.
|