unit26.~pas

来自「酒店住宿管理系统,有完整的文件和源码, 可以下载使用」· ~PAS 代码 · 共 100 行

unit Unit26;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Buttons;

type
  Tsydwform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sydwform: Tsydwform;

implementation

{$R *.dfm}

procedure Tsydwform.BitBtn1Click(Sender: TObject);
begin
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=true;

end;

procedure Tsydwform.BitBtn2Click(Sender: TObject);
begin
adotable1.Edit;
adotable1.FieldValues['使用单位']:=dbedit1.Text;
adotable1.FieldValues['地址']:=dbedit2.Text;
adotable1.FieldValues['邮编']:=dbedit3.Text;
adotable1.FieldValues['电话']:=dbedit4.Text;
adotable1.Post;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=false;
end;

procedure Tsydwform.BitBtn3Click(Sender: TObject);
begin
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=false;
adotable1.Close;
close;
end;

procedure Tsydwform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=false;
adotable1.Close;
close;
end;

procedure Tsydwform.FormActivate(Sender: TObject);
begin
adotable1.Open;
end;

end.