u_bb_zjk_zjkmx.pas

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

unit U_Bb_Zjk_Zjkmx;

interface

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

type
  TFrm_BB_Zjk_Zjkmx = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    RadioGroup1: TRadioGroup;
    Edt_bh: TEdit;
    Cmx_Je: TComboBox;
    Edt_je: TEdit;
    Cmx_fs: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Cmx_bm: TComboBox;
    Cmx_lb: TComboBox;
    Action4: TAction;
    procedure Action3Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure  kh_xx();
    procedure Action4Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_BB_Zjk_Zjkmx: TFrm_BB_Zjk_Zjkmx;

implementation
  uses u_card,u_data;
{$R *.dfm}

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

procedure TFrm_BB_Zjk_Zjkmx.Action2Execute(Sender: TObject);
var
  P_Str_lj:string;
begin
   if (cmx_bm.Text='') or  (cmx_lb.Text='') or (cmx_bm.Text='') or (cmx_je.Text='') then
     begin
      application.MessageBox('部门名称，增减方式，增减方式 不能为空','明日科技');
      exit;
     end;
   If trim(edt_bh.Text) = '' Then
    {1} begin
           If (Cmx_bm.text='全部') And (cmx_fs.text='全部') Then
               begin
                  if trim(edt_je.Text)=''  then
                     begin
                        P_Str_lj:= 'select * from mr_zjb';
                         P_Str_lj := P_Str_lj + '  where sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));

                     end
                  else
                     begin
                      P_Str_lj := 'select * from mr_zjb where zjje' +Cmx_je.text+quotedstr(edt_je.text);
                     P_Str_lj := P_Str_lj + '  and sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));

                     end;
               end
           else
              begin
                 if trim(edt_je.Text)='' then
                     begin
                        P_Str_lj:= 'select * from mr_zjb where bmmc='+ quotedstr(Cmx_bm.text);

                     end
                  else
                     begin
                      P_Str_lj := 'select * from mr_zjb where zjje' +Cmx_je.text+quotedstr(edt_je.text)+'and bmmc='+ quotedstr(Cmx_bm.text);

                     end;
                   P_Str_lj := P_Str_lj + ' and sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));

              end;
          end
      else
          begin
             If (Cmx_bm.text='全部') And (cmx_fs.text='全部') Then
               begin
                  if trim(edt_je.Text)=''  then
                     begin
                        P_Str_lj:= 'select * from mr_zjb';
                        P_Str_lj := P_Str_lj + ' where bh='+quotedstr(edt_bh.Text);
                          P_Str_lj := P_Str_lj + '  and sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));

                     end
                  else
                     begin
                      P_Str_lj := 'select * from mr_zjb where zjje' +Cmx_je.text+quotedstr(edt_je.text);
                        P_Str_lj := P_Str_lj + '  and bh='+quotedstr(edt_bh.Text);
                        P_Str_lj := P_Str_lj + ' and sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));
                     end;
               end
           else
              begin
                 if trim(edt_je.Text)='' then
                     begin
                        P_Str_lj:= 'select * from mr_zjb  where bmmc='+ quotedstr(Cmx_bm.text);
                        P_Str_lj := P_Str_lj + '  and bh='+quotedstr(edt_bh.Text);

                     end
                  else
                     begin
                      P_Str_lj := 'select * from mr_zjb where zjje' +Cmx_je.text+quotedstr(edt_je.text)+'and bmmc='+ quotedstr(Cmx_bm.text);
                      P_Str_lj := P_Str_lj + 'and bh='+quotedstr(edt_bh.Text);

                     end;
                    P_Str_lj := P_Str_lj + ' and sj between '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.date))+' and '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.date));

              end;

            end;

         data.G_Cj.SQL.Clear;
         data.G_Cj.SQL.Add(p_str_lj);
         data.G_Cj.ExecSQL;
         data.G_Cj.Open;
         data.Mr_zjb_s.DataSet:=data.G_Cj;
         data.G_Cj.Active:=true;
         close;
//
end;

procedure TFrm_BB_Zjk_Zjkmx.Action1Execute(Sender: TObject);
begin
//
end;

procedure TFrm_BB_Zjk_Zjkmx.SpeedButton3Click(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_zjk_zjkmx.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_Zjk_Zjkmx.Action4Execute(Sender: TObject);
begin
   data.G_con.Open();
   data.G_Rst.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;
     data.G_Rst.SQL.Clear;
     data.G_Rst.SQL.Add('select * from mr_jbb where m_lbbh=5');
    data.G_Rst.ExecSQL;
    data.G_Rst.Open;
   while not data.G_Rst.Eof do
      begin
         cmx_lb.Items.Add(data.G_Rst.FieldValues['m_name']);
         data.G_Rst.Next;
      end;
    data.G_Rst.Close;
      cmx_fs.Items.Add('个人');
      cmx_fs.Items.Add('集体');
      cmx_fs.Items.Add('全部');
     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;
end;

end.