mryhgl.pas

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

unit MRYHGL;

interface

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

type
  TYHGL = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    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;
    DBNavigator1: TDBNavigator;
    BitBtn5: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHGL: TYHGL;

implementation

{$R *.DFM}

procedure TYHGL.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TYHGL.BitBtn1Click(Sender: TObject);
var I:integer;
begin
table1.First;
I:=1;
while not table1.Eof do begin
  I:=I+1;
  table1.next;
end;
try
  table1.insert;
  bitbtn1.Enabled:=false;
  Bitbtn2.enabled:=true;
  bitbtn3.enabled:=true;
  dbedit1.text:=inttostr(I);
  dbedit2.enabled:=true;
  dbcombobox1.enabled:=true;
  dbedit4.Enabled:=true;
  dbedit5.enabled:=true;
  dbedit6.enabled:=true;
  dbedit7.Enabled:=true;
  dbcombobox1.itemindex:=0;
  table1.fieldbyname('a').asboolean:=false;
  table1.fieldbyname('b').asboolean:=false;
  table1.fieldbyname('c').asboolean:=false;
  table1.fieldbyname('d').asboolean:=false;
  table1.fieldbyname('e').asboolean:=false;
  dbedit2.SetFocus;
except on exception do showmessage('数据无法连接！');
end;
end;

procedure TYHGL.BitBtn2Click(Sender: TObject);
begin
try
  table1.Post;
  bitbtn1.enabled:=true;
  bitbtn2.enabled:=false;
  bitbtn3.enabled:=false;
  dbedit2.enabled:=false;
  dbcombobox1.enabled:=false;
  dbedit4.enabled:=false;
  dbedit5.enabled:=false;
  dbedit6.enabled:=false;
  dbedit7.enabled:=false;
except on exception do showmessage('数据无法保存！');
end;
end;

procedure TYHGL.BitBtn3Click(Sender: TObject);
begin
try
  table1.cancel;
  bitbtn1.enabled:=true;
  bitbtn2.enabled:=false;
  bitbtn3.enabled:=false;
  dbedit2.enabled:=false;
  dbcombobox1.enabled:=false;
  dbedit4.enabled:=false;
  dbedit5.enabled:=false;
  dbedit6.enabled:=false;
  dbedit7.enabled:=false;
except on exception do showmessage('数据无法保存！');
end;

end;

procedure TYHGL.FormCreate(Sender: TObject);
begin
table1.databasename:='moed';
table1.tablename:='pass';
table1.Open;
end;

procedure TYHGL.FormShow(Sender: TObject);
begin
dbedit2.enabled:=false;
dbcombobox1.enabled:=false;
dbedit4.enabled:=false;
dbedit5.enabled:=false;
dbedit6.enabled:=false;
dbedit7.enabled:=false;
bitbtn1.enabled:=true;
bitbtn2.enabled:=false;
bitbtn3.enabled:=false;
end;

procedure TYHGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.close;
YHGL.Release;

end;

procedure TYHGL.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   if (Activecontrol is Tdbedit) then
      PerForm(WM_NextDlgctl,0,0);

end;

procedure TYHGL.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
  dbcombobox1.setfocus;
  end;
end;

procedure TYHGL.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
  dbedit4.setfocus;
  end;
end;

procedure TYHGL.BitBtn5Click(Sender: TObject);
begin
 table1.edit;
  bitbtn1.Enabled:=false;
  Bitbtn2.enabled:=true;
  bitbtn3.enabled:=true;
  dbedit2.enabled:=true;
  dbcombobox1.enabled:=true;
  dbedit4.Enabled:=true;
  dbedit5.enabled:=true;
  dbedit6.enabled:=true;
  dbedit7.Enabled:=true;
end;

end.