u_zhgl_zhgl_hk.~pas

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

unit U_Zhgl_Zhgl_Hk;

interface

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

type
  TFrm_Zhgl_Zhgl_Hk = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Panel2: TPanel;
    DBText1: TDBText;
    Panel3: TPanel;
    DBText2: TDBText;
    Panel4: TPanel;
    DBText3: TDBText;
    Panel5: TPanel;
    DBText4: TDBText;
    Panel6: TPanel;
    DBText5: TDBText;
    Panel7: TPanel;
    DBText6: TDBText;
    Panel8: TPanel;
    DBText7: TDBText;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBEdit4: TDBEdit;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    procedure Action2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Zhgl_Zhgl_Hk: TFrm_Zhgl_Zhgl_Hk;

implementation
  uses u_data;
{$R *.dfm}

procedure TFrm_Zhgl_Zhgl_Hk.Action2Execute(Sender: TObject);
begin
  close;
end;

procedure TFrm_Zhgl_Zhgl_Hk.Action1Execute(Sender: TObject);
var aa:string;
begin
  if trim(dbedit3.Text)='' then
    begin
    application.MessageBox('卡号不能为空','明日科技有限公司');
    exit; 
    end;
   dbedit5.Text:=dbtext1.Caption;
   dbedit6.Text:=dbtext3.Caption;
   dbedit7.Text:=dbtext4.Caption;
  data.Mr_hkb.Post;
   close;
    if trim(dbedit3.Text)<>'' then
      aa:=dbedit3.Text ;
   begin
     aa:='update mr_people set kh='+quotedstr(aa)+' where  bh='+quotedstr(trim(dbtext1.Caption));

      with data do
       begin
         g_con.Open();
         g_rst_temp.SQL.Clear;
         g_rst_temp.SQL.Add(aa);
         g_rst_temp.ExecSQL;
         
         //g_rst_temp.Open;
        // g_rst_temp.Active:=ture;
       end;
   end;
end;

procedure TFrm_Zhgl_Zhgl_Hk.Action4Execute(Sender: TObject);
var dd:string;
  begin
      dd:=trim(g_str_selectkh);
       with data do
         begin
           g_con.Open();
            g_Rst_temp.SQL.Clear;
            dd:='select * from mr_people where bh='+quotedstr(dd);
            g_rst_temp.SQL.Add(dd);
            g_rst_temp.ExecSQL;
            g_rst_temp.Open;
            data.Mr_People_add.DataSet:=g_rst_temp;
            g_rst_temp.Active:=true;
            data.Mr_hkb.Append;
            dbedit4.Text:=formatdatetime('yyyy年mm月dd日',now);
            dbedit2.Text:=floattostr(G_Gj_HkGdFy);
            dbedit1.Text:='损坏';
            dbedit3.SetFocus;
         end;


end;

procedure TFrm_Zhgl_Zhgl_Hk.Action3Execute(Sender: TObject);
begin
 If OPen_Card Then
    begin
    dbedit3.Text:=  Read_Card;
     If Close_card Then
        begin
         // kh_xx ;
          Exit;
        end;
    end;
end;

end.