yhzc.pas

来自「使用DELPHI6.0开发的停车场管理信息系统 使用ADO和BDE技术连接SQL」· PAS 代码 · 共 67 行

unit yhzc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;

type
  Tzhuce = class(TForm)
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit4: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhuce: Tzhuce;

implementation

{$R *.dfm}

procedure Tzhuce.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tzhuce.Button1Click(Sender: TObject);
begin
with Table1 do begin
 Insert;
 FieldValues['用户名'] :=Edit1.Text;
 FieldValues['密码'] :=Edit2.Text;
 FieldValues['真实姓名'] :=Edit3.Text;
 FieldValues['身份证号'] :=Edit4.Text;
 Edit5.Text :=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
 FieldValues['创建时间'] :=Edit5.Text;
 Post;
 end;
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 Edit4.Text:='';
 Edit5.Text:='';
 close;
end;

end.