DS6JIEFENG/财务管理/u_ch_balance_all.pas

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.