保险支付查询delphi

1. 保险支付查询delphi

   unit Unit_V_Payment;
   
   interface
   
   uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, Unit_Child_Template_Modal, DBGridEhGrouping, GridsEh, DBGridEh,
     StdCtrls, ComCtrls,DB,ADODB;
   
   type
     TForm_V_Payment = class(TForm_Child_Template_Modal)
       Label1: TLabel;
       Label2: TLabel;
       dtp_SDate: TDateTimePicker;
       dtp_EDate: TDateTimePicker;
       cbb_Dept_No: TComboBox;
       cbb_Dept_Name: TComboBox;
       btn_Query: TButton;
       dbgrdh_Payment_Info: TDBGridEh;
       btn_Close: TButton;
       procedure FormCreate(Sender: TObject);
       procedure cbb_Dept_NoChange(Sender: TObject);
       procedure cbb_Dept_NameChange(Sender: TObject);
       procedure btn_CloseClick(Sender: TObject);
       procedure btn_QueryClick(Sender: TObject);
     private
       { Private declarations }
     public
       { Public declarations }
     end;
   
   var
     Form_V_Payment: TForm_V_Payment;
     qry_V_Payment: TADOQuery;
     ds_V_Payment: TDataSource;
   implementation
   
   uses Unit_Main,Unit_Public_Funciton,Unit_Public_Variable;
   
   {$R *.dfm}
   
   procedure TForm_V_Payment.FormCreate(Sender: TObject);
   begin
     inherited;
     dtp_SDate.Date := Now;
     dtp_EDate.Date := Now;
     str_Temp := 'select dept_no,dept_name from ' + str_DB_Name + '.dbo.tk_dept_info where dept_no in (' + str_Current_Role_Dept_List + ') order by dept_no';
     Form_Main.aTCPAdoClient_Main.Open(str_Temp);
     while not Form_Main.aTCPAdoClient_Main.Eof do
     begin
       cbb_Dept_No.Items.Add(Form_Main.aTCPAdoClient_Main.FieldByName('dept_no').Text);
       cbb_Dept_Name.Items.Add(Form_Main.aTCPAdoClient_Main.FieldByName('dept_name').Text);
       Form_Main.aTCPAdoClient_Main.Next;
     end;
     cbb_Dept_No.ItemIndex := 0;
     cbb_Dept_Name.ItemIndex := 0;
     qry_V_Payment := TADOQuery.Create(Self);
     ds_V_Payment := TDataSource.Create(Self);
     ds_V_Payment.DataSet := qry_V_Payment;
     dbgrdh_Payment_Info.Columns[0].Width := 160;
     dbgrdh_Payment_Info.Columns[1].Width := 100;
     dbgrdh_Payment_Info.Columns[2].Width := 140;
     dbgrdh_Payment_Info.Columns[3].Width := 100;
     dbgrdh_Payment_Info.Columns[4].Width := 80;
     dbgrdh_Payment_Info.Columns[5].Width := 80;
   end;
   
   procedure TForm_V_Payment.cbb_Dept_NoChange(Sender: TObject);
   begin
     inherited;
     cbb_Dept_Name.ItemIndex := cbb_Dept_No.ItemIndex;
   end;
   
   procedure TForm_V_Payment.cbb_Dept_NameChange(Sender: TObject);
   begin
     inherited;
     cbb_Dept_No.ItemIndex := cbb_Dept_Name.ItemIndex;
   end;
   
   procedure TForm_V_Payment.btn_CloseClick(Sender: TObject);
   begin
     inherited;
     Close;
   end;
   
   procedure TForm_V_Payment.btn_QueryClick(Sender: TObject);
   begin
     inherited;
     if dtp_SDate.Date > dtp_EDate.Date then
     begin
       Msg('支付起始日期不能晚于结束日期!');
       Exit;
     end;
     str_Temp := 'select b.insu_no,a.BEGIN_TIME,a.END_TIME,b.pay_time,b.pay_money,c.LICENSE from ' + str_DB_Name;
     str_Temp := str_Temp + '.dbo.TK_BUS_INSURER a INNER JOIN ' + str_DB_Name + '.dbo.TK_INSURER_PAYMENT b';
     str_Temp := str_Temp + ' ON a.INSU_NO = b.INSU_NO LEFT OUTER JOIN ' + str_DB_Name + '.dbo.TK_BUS_INFO c ';
     str_Temp := str_Temp + 'on a.BUS_NO = c.BUS_NO WHERE A.DEPT_NO='+ cbb_Dept_No.Text + ' AND b.PAY_TIME BETWEEN ''';
     str_Temp := str_Temp  + DateTimeToStr(dtp_SDate.DateTime)  + ''' AND ''' + DateTimeToStr(dtp_EDate.DateTime) + '''';
     Form_Main.aTCPAdoClient_Main.Open(str_Temp);
     qry_V_Payment.Clone(Form_Main.aTCPAdoClient_Main,ltReadOnly);
     dbgrdh_Payment_Info.DataSource := ds_V_Payment;
   
   end;
   
   end.