u_bb_xf_xfcz.pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Bb_xf_xfcz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ComCtrls, StdCtrls, ExtCtrls, ActnList,
  XPStyleActnCtrls, ActnMan,strutils,u_public_define;

type
  TFrm_Bb_xf_Xfcz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Dtp1: TDateTimePicker;
    Label5: TLabel;
    dtp2: TDateTimePicker;
    dtp3: TDateTimePicker;
    dtp4: TDateTimePicker;
    cmx_bm: TComboBox;
    Edt_bh: TEdit;
    Edt_je: TEdit;
    cmx_je: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    procedure Action3Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
     procedure kh_xx();
    procedure FormShow(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Bb_xf_Xfcz: TFrm_Bb_xf_Xfcz;

implementation

uses U_Data,u_card,u_bb_xfhz;

{$R *.dfm}

procedure TFrm_Bb_xf_Xfcz.Action3Execute(Sender: TObject);
begin
  close;
end;

procedure TFrm_Bb_xf_Xfcz.Action1Execute(Sender: TObject);
begin
If OPen_Card Then
    begin
    edt_bh.Text:= Read_Card;
    g_str_selectkh:=edt_bh.text;
     If Close_card Then
        begin
          kh_xx ;
        //  Action5Execute(Sender);
          Exit;
        end;
    end;
end;
 procedure TFrm_bb_xf_xfcz.kh_xx();
  var dd:string;
  begin
      dd:=trim(g_str_selectkh);
       with data do
         begin
            g_con.Open();
            g_Rst7.SQL.Clear;
            dd:='select * from mr_people where kh='+quotedstr(dd);
            g_rst7.SQL.Add(dd);
            g_rst7.ExecSQL;
            g_rst7.Open;
            if not g_rst7.Eof then
               begin
                 edt_bh.Text :=g_Rst7.FieldValues['bh'];
               end;
            //.Active:=true;
         end;
 end;
procedure TFrm_Bb_xf_Xfcz.FormShow(Sender: TObject);
begin
   data.G_con.Open();
   data.G_cj.SQL.Clear;
   data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=1');
   data.G_Rst.ExecSQL;
   data.G_Rst.Open;
   while not data.G_Rst.Eof do
      begin
         cmx_bm.Items.Add(data.G_Rst.FieldValues['m_name']);
         data.G_Rst.Next;
      end;
     data.G_Rst.Close;
     cmx_bm.Items.Add('全部');
      cmx_je.Items.Add('=');
      cmx_je.Items.Add('>');
      cmx_je.Items.Add('>=');
      cmx_je.Items.Add('<');
      cmx_je.Items.Add('<=');
      cmx_je.Items.Add('<>');
      dtp1.Date:=now;
      dtp2.Date:=now;
      dtp3.Date:=now;
      dtp4.Date:=now;

end;

procedure TFrm_Bb_xf_Xfcz.Action2Execute(Sender: TObject);
 var  P_Str_lj:String;
      aa:String;
      B:array[1..9] of string;
begin

   
   aa := ' xfsj between ' +quotedstr(Formatdatetime('hh:mm:ss', DTP3.Time))+' and ';
   aa := aa+ quotedstr(Formatdatetime('hh:mm:ss', DTP4.Time))+' and xfrq between ';
   aa := aa + quotedstr(Formatdatetime('yyyy年mm月dd日', DTP1.Date )) +' and '+ quotedstr(Formatdatetime('yyyy年mm月dd日', DTP2.Date));
   If (Cmx_bm.Text ='') Or (Cmx_bm.Text  = '全部') Then
      begin
         If Cmx_je.Text = '' Then
            begin
              P_Str_lj := 'select * from mr_xfb where ' + aa;
            end
         Else
            begin
              P_Str_lj := 'select * from mr_xfb where xfje' +Cmx_je.text + quotedstr(edt_je.text) +' and '+aa;
            End;
      end
   Else
     begin
     If Cmx_je.Text ='' Then
       begin
          P_Str_lj := 'select * from mr_xfb where bmmc='+quotedstr(Trim(Cmx_bm.text))+' and '+ aa;
       end
     Else
       begin
        P_Str_lj := 'select * from mr_xfb where xfje'+  Cmx_je.text  +  quotedstr(edt_je.text) +' and ' +  aa;
       End;
   End;
   if edt_bh.Text<>'' then
      begin
        aa:=' and bh='+quotedstr(edt_bh.Text);
        P_Str_lj :=P_Str_lj +aa;
      end;

        // aa := ' xfsj between ' +quotedstr(Formatdatetime('hh:mm:ss', DTP3.Time))+' and ';
       //  aa := aa+ quotedstr(Formatdatetime('hh:mm:ss', DTP4.Time));
      //  P_Str_lj := 'select * from mr_xfb where'+aa;
         data.G_con.Open();
         data.G_Cj.SQL.Clear;
         data.G_Cj.SQL.Add(p_str_lj);
         data.G_Cj.ExecSQL;
         data.G_Cj.Open;
           frm_bb_xfhz.Lvw_lb.Items.Clear;
          while not data.G_Cj.Eof do
             begin
               with data do
                 begin
                   b[1]:=g_cj.FieldValues['xfrq']+' '+g_cj.FieldValues['xfsj'];
                   b[2]:=g_cj.FieldValues['bh'];
                   b[3]:=g_cj.FieldValues['xm'];
                   b[4]:=g_cj.FieldValues['kh'];
                   b[5]:=g_cj.FieldValues['bmmc'];
                   b[6]:=g_cj.FieldValues['xfjh'];
                   b[7]:=g_cj.FieldValues['xfje'];
                   b[8]:=g_cj.FieldValues['xfhye'];
                   b[9]:=g_cj.FieldValues['xflx'];
                   g_cj.Next;
                 end;

             with frm_bb_xfhz.Lvw_lb.Items.Add do
                begin
                  caption:=b[1];
                  subitems.Add(b[2]);
                  subitems.Add(b[3]);
                  subitems.Add(b[4]);
                  subitems.Add(b[5]);
                  subitems.Add(b[6]);
                  subitems.Add(b[7]);
                  subitems.Add(b[8]);
                  subitems.Add(b[9]);
                end;

             end;
       close;

end;

end.