unit11.pas

数字电路故障诊断系统

unit Unit11;

interface

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

type
  Taddlib = class(TForm)
    Button1: TButton;
    Button2: TButton;
    error: TEdit;
    component: TEdit;
    wire: TEdit;
    total: TEdit;
    layer: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    data: TMaskEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addlib: Taddlib;

implementation

{$R *.dfm}

procedure Taddlib.Button2Click(Sender: TObject);
begin
     addlib.Close ;
end;

procedure Taddlib.Button1Click(Sender: TObject);
begin
   if table1.CanModify then
     begin
       if addlib.ShowModal=mrok then
       begin
           table1.Insert;
           table1.Fields[0].AsString:=addlib.error.Text;
           table1.Fields[1].AsString:=addlib.wire.Text;
           table1.Fields[3].AsString:=addlib.component.Text;
           table1.Fields[2].AsInteger:=strtoint(addlib.layer.Text);
           table1.Fields[4].AsDateTime:=strtodatetime(addlib.data.Text);
           table1.Fields[5].AsInteger:=strtoint(addlib.total.Text);
           table1.Post;
      end;
     end
      else
      application.messagebox('error','cannot add a record',MB_OK);
end;

end.