u_zhgl_zhgl_zx.~pas

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

unit U_Zhgl_Zhgl_Zx;

interface

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

type
  TFrm_Zhgl_Zhgl_Zx = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: 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;
    Panel9: TPanel;
    DBText8: TDBText;
    Panel10: TPanel;
    DBText9: TDBText;
    Panel11: TPanel;
    DBText10: TDBText;
    SpeedButton1: TSpeedButton;
    GroupBox2: TGroupBox;
    Chk_ye: TCheckBox;
    Chk_Yj: TCheckBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ActionManager1: TActionManager;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Edt_ye: TEdit;
    Edt_yj: TEdit;
    Button1: TButton;
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
     procedure  kh_xx();
    procedure Action4Execute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Chk_yeClick(Sender: TObject);
    procedure Chk_YjClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Zhgl_Zhgl_Zx: TFrm_Zhgl_Zhgl_Zx;

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

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

procedure TFrm_Zhgl_Zhgl_Zx.Action3Execute(Sender: TObject);
begin
 If OPen_Card Then
    begin
    dbtext7.Caption :=  Read_Card;
    g_str_selectkh:=dbtext7.Caption;
     If Close_card Then
        begin
          kh_xx ;
          Exit;
        end;
    end;
end;
 
procedure TFrm_Zhgl_Zhgl_Zx.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 kh='+quotedstr(dd);
            g_rst_temp.SQL.Add(dd);
            g_rst_temp.ExecSQL;
            data.Mr_People_add.DataSet:=g_rst_temp;
            g_rst_temp.Open;
            g_rst_temp.Active:=true;
         end;

end;

procedure TFrm_Zhgl_Zhgl_Zx.FormActivate(Sender: TObject);
begin
kh_xx;
end;

procedure TFrm_Zhgl_Zhgl_Zx.Action1Execute(Sender: TObject);
  var I1,I2,I3,I4:real;
    dd:string;
    aa:string;
begin
  I1:=0;
  I2:=0;
  I3:=0;
  I4:=0;

  i1:=strtofloat(dbtext3.Caption);
  i2:=strtofloat(dbtext8.Caption);
  if chk_ye.Checked then
    i3:=strtofloat(edt_ye.Text);
  if chk_yj.Checked then
    i4:=strtofloat(edt_yj.Text);

  if  i1<i3 then
    begin
      application.MessageBox('所退余额不能大于初使余额','明日科技');
      exit;
    end;
  if  i2<i4 then
    begin
      application.MessageBox('所退押金不能大于初使押金','明日科技');
      exit;
    end;

       with data do
         begin
            aa:='注销';
            g_con.Open();
            g_Rst_temp.SQL.Clear;
            dd:=trim(g_str_selectkh);
            dd:='update mr_people  set ycje='+floattostr(i1-i3)+' ,yj='+floattostr(i2-i4)+', kzt='+quotedstr(aa)+'  where kh='+quotedstr(dd);
            g_rst_temp.SQL.Add(dd);
            g_rst_temp.ExecSQL;
         //   data.Mr_People_add.DataSet:=g_rst_temp;
        //    g_rst_temp.Open;
         //   g_rst_temp.Active:=true;
         end;
     close;
//
  // kh_xx;
end;
procedure Tfrm_zhgl_zhgl_zx.kh_xx();
  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 kh='+quotedstr(dd);
            g_rst_temp.SQL.Add(dd);
            g_rst_temp.ExecSQL;
            data.Mr_People_add.DataSet:=g_rst_temp;
            g_rst_temp.Open;
            //.Active:=true;
         end;
     end;
procedure TFrm_Zhgl_Zhgl_Zx.Chk_yeClick(Sender: TObject);
begin
 if chk_ye.Checked then
  begin
     edt_ye.Text:=dbtext3.Caption;
  end
 else
   begin
     edt_ye.Text:='';
   end;
end;

procedure TFrm_Zhgl_Zhgl_Zx.Chk_YjClick(Sender: TObject);
begin
   if chk_yj.Checked then
     begin
      edt_yj.Text:=dbtext8.Caption;
     end
   else
     begin
      edt_yj.Text:='';
     end;
end;

procedure TFrm_Zhgl_Zhgl_Zx.Button1Click(Sender: TObject);
begin
  kh_xx;
end;

end.