unit5.pas

来自「理论考试程序,可以自由下载,学习,请多多指点,批评」· PAS 代码 · 共 69 行

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    BitBtn5: TBitBtn;
    Tab1: TADOTable;
    Tab1ID: TAutoIncField;
    Tab1sfzmhm: TWideStringField;
    Tab1kscj: TWideStringField;
    Tab1kssj: TWideStringField;
    Edit1: TEdit;
    Label2: TLabel;
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit4, Unit1, Unit7;

{$R *.dfm}

procedure TForm5.BitBtn5Click(Sender: TObject);
begin
with form4 do begin
a.Enabled:=false;
b.Enabled:=false;
c.Enabled:=false;
bitbtn12.Enabled:=false;
bitbtn1.Enabled:=true;

bitbtn11.Enabled:=true;

bitbtn13.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn9.Enabled:=false;
bitbtn3.Enabled:=true;

bitbtn14.Enabled:=true;
bitbtn5.Enabled:=false;
end;
{if Not Tab1.Active  then Tab1.Active;
  Tab1.Open;
  Tab1.Append;
  Tab1.FieldByName('sfzmhm').Asstring:=Trim(form7.Txtsfzh1.Caption) ;
  Tab1.FieldByName('kssj').Asstring:=formatdatetime('yyyymmdd hh:mm',date);
  Tab1.FieldByName('kscj').Asstring:=trim(edit1.Text);
  Tab1.Post;
  Tab1.close;}
close;

//form4.Close;
end;

end.