u_bb_zh_yecz.pas

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

unit U_Bb_Zh_Yecz;

interface

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

type
  TFrm_Bb_Zh_Yecz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    Cmx_lb: TComboBox;
    Opn1: TRadioButton;
    Opn2: TRadioButton;
    Opn3: TRadioButton;
    Opn4: TRadioButton;
    Dtp1: TDateTimePicker;
    Dtp2: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    SpeedButton4: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    edt_ye: TEdit;
    Action5: TAction;
     procedure  kh_xx();
    procedure SpeedButton1Click(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Bb_Zh_Yecz: TFrm_Bb_Zh_Yecz;

implementation
    uses u_data,U_card, U_Ryb, U_Zhgl_Zhgl;
{$R *.dfm}
 procedure Tfrm_bb_zh_yecz.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;
            g_rst7.Active:=true;
         end;
     end;
procedure TFrm_Bb_Zh_Yecz.SpeedButton1Click(Sender: TObject);
begin
If OPen_Card Then
    begin
    dbedit1.Text:= Read_Card;
    g_str_selectkh:=dbedit1.text;
     If Close_card Then
        begin
          kh_xx ;
          Exit;
        end;
    end;
end;

procedure TFrm_Bb_Zh_Yecz.Action1Execute(Sender: TObject);
begin
  frm_ryb:=Tfrm_ryb.Create(application);
    frm_ryb.ShowModal;
    if g_str_selectkh<>'' then
      begin
      kh_xx;
     //Action5Execute(Sender);
      end;
end;

procedure TFrm_Bb_Zh_Yecz.Action4Execute(Sender: TObject);
begin
  close;
end;

procedure TFrm_Bb_Zh_Yecz.Action5Execute(Sender: TObject);
begin
     cmx_lb.Items.Add('=');
      cmx_lb.Items.Add('>');
      cmx_lb.Items.Add('>=');
      cmx_lb.Items.Add('<');
      cmx_lb.Items.Add('<=');
      cmx_lb.Items.Add('<>');
      dtp1.Date:=now;
      dtp2.Date:=now;
      data.g_rst7.Active:=false;
end;

procedure TFrm_Bb_Zh_Yecz.Action3Execute(Sender: TObject);
var
   P_Str_lj:String;
   i, J, K:Integer;
   bb:string;
begin
     If Opn1.Checked Then //正常卡
       begin
         bb:='正常卡';
         P_Str_lj := 'select * from mr_people where  kzt='+quotedstr(bb)+' and khrq between '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.Date))+' and '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.Date))
       end
      Else If Opn2.Checked Then //已销卡
       begin
         bb:='注消';
         P_Str_lj := 'select * from mr_people where  kzt='+quotedstr(bb)+' and khrq between '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.Date))+' and '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.Date))
       end
      Else If Opn2.Checked Then // 挂失卡
       begin
         bb:='挂失';
         P_Str_lj := 'select * from mr_people where  kzt='+quotedstr(bb)+' and khrq between '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.Date))+' and '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.Date))
       end
       Else If Opn2.Checked Then // 回收卡
       begin
         bb:='回收';
         P_Str_lj := 'select * from mr_people where  kzt='+quotedstr(bb)+' and khrq between '+quotedstr(Formatdatetime('yyyy年mm月dd日',DTP1.Date))+' and '+ quotedstr(Formatdatetime('yyyy年mm月dd日',DTP2.Date))
       end;
       if self.DBEdit1.Text=''  then
         begin
           P_Str_lj:= 'select * from mr_people';
         end;
        data.G_Rst_temp1.SQL.Clear;
        data.G_Rst_temp1.SQL.Add(p_str_lj);
        data.G_Rst_temp1.ExecSQL;
        data.G_Rst_temp1.Open;
        frm_zhgl_zhgl.dbedit1.DataField:='bh';
        frm_zhgl_zhgl.dbedit2.DataField:='kh';
        close;
end;

end.