mrqxsz.~pas

这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理

unit MRQXSZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Buttons, DBCtrls, Grids, DBGrids;

type
  TQXSZ = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    BitBtn3: TBitBtn;
    Table1id: TAutoIncField;
    Table1bh: TStringField;
    Table1xm: TStringField;
    Table1xb: TStringField;
    Table1nl: TStringField;
    Table1dlsf: TStringField;
    Table1zw: TStringField;
    Table1kl: TStringField;
    Table1a: TBooleanField;
    Table1b: TBooleanField;
    Table1c: TBooleanField;
    Table1d: TBooleanField;
    Table1e: TBooleanField;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QXSZ: TQXSZ;

implementation

{$R *.DFM}
procedure TQXSZ.FormCreate(Sender: TObject);
begin
 table1.databasename:='moed';
 table1.tablename:='pass';
 table1.Open;
 bitbtn2.enabled:=false;
end;
procedure TQXSZ.BitBtn1Click(Sender: TObject);   //修改数据
begin
 try
  table1.edit;
  dbcheckbox1.enabled:=true;
  dbcheckbox2.enabled:=true;
  dbcheckbox3.enabled:=true;
  dbgrid1.enabled:=false;
  bitbtn1.enabled:=false;
  bitbtn2.enabled:=true;
 except on exception do showmessage('记录不能修改！');
 end;
end;
procedure TQXSZ.BitBtn2Click(Sender: TObject);    //保存数据
begin
 try
  table1.post;
  dbcheckbox1.enabled:=false;
  dbcheckbox2.enabled:=false;
  dbcheckbox3.enabled:=false;
  dbgrid1.enabled:=true;
  bitbtn2.enabled:=false;
  bitbtn1.enabled:=true;
 except on exception do showmessage('记录不能保存！');
 end;
end;
procedure TQXSZ.BitBtn3Click(Sender: TObject);    //退出
begin
 close;
end;
end.