mrkhxxgl.pas

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

unit MRKHXXGL;

interface

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

type
  TKHXXGL = class(TForm)
    Table1: TTable;
    Table1id: TAutoIncField;
    Table1khbh: TStringField;
    Table1khqc: TStringField;
    Table1lxdh: TStringField;
    Table1lxr: TStringField;
    Table1sj: TStringField;
    Table1di: TStringField;
    Table1yb: TStringField;
    Table1cz: TStringField;
    Table1wz: TStringField;
    Table1khyh: TStringField;
    Table1yhzh: TStringField;
    Table1nsh: TStringField;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    Function ENFALSE:INTEGER;
    Function ENTRUE:INTEGER;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KHXXGL: TKHXXGL;

implementation

uses mrkhxxgl_cx;

{$R *.DFM}
Function tkhXXGL.ENFALSE;   //定义函数ENFALSE
begin
  Button1.Enabled:=False; Button2.Enabled:=False;
  Button3.Enabled:=True;  Button4.Enabled:=True;
  Button5.Enabled:=False; Button6.Enabled:=False;
  dbnavigator1.Enabled:=False; Dbedit2.Enabled:=True;
  DBedit3.Enabled:=True;   Dbedit4.Enabled:=True;
  Dbedit5.ENabled:=True;   Dbedit6.Enabled:=True;
  Dbedit7.Enabled:=True;   DBedit8.Enabled:=True;
  Dbedit9.Enabled:=TRue;   Dbedit10.Enabled:=true;
  Dbedit11.Enabled:=true;  Dbedit12.Enabled:=true;
end;
Function tkhXXGL.ENtrue;   //定义函数true
begin
  Button1.Enabled:=True;   Button2.Enabled:=True;
  Button3.Enabled:=False;  Button4.Enabled:=False;
  Button5.Enabled:=True;   Button6.Enabled:=True;
  Dbnavigator1.Enabled:=true; Dbedit2.Enabled:=False;
  DBedit3.Enabled:=False;   Dbedit4.Enabled:=False;
  Dbedit5.ENabled:=False;   Dbedit6.Enabled:=False;
  Dbedit7.Enabled:=False;   DBedit8.Enabled:=False;
  Dbedit9.Enabled:=False;   Dbedit10.Enabled:=False;
  Dbedit11.Enabled:=False;  Dbedit12.Enabled:=False;
end;
procedure TKHXXGL.FormCreate(Sender: TObject);
begin
 Table1.DatabaseName:='moed';
 Table1.TableName:='kehu';
 Table1.open;
end;
procedure TKHXXGL.FormShow(Sender: TObject);
begin
 ENTRUE;
 Table1.Filtered:=False;
 table1.indexfieldnames:='id';
end;
procedure TKHXXGL.Button1Click(Sender: TObject);   //添加客户信息
var I:integer;
begin
 Table1.Last;
 if table1.fieldbyname('khbh').asstring<>'' then
  i:=strtoint(table1.fieldbyname('khbh').asstring)+1
 else i:=1;
 Try
    Table1.close;
    Table1.open;
    Table1.append;
    enfalse;
    dbgrid1.enabled:=false;
    dbedit1.Text:=formatfloat('000000',i);  //生成3位客户编号
    dbedit2.SetFocus;
 Except on Exception do showmessage('数据无法连接！');end;
end;
procedure TKHXXGL.Button2Click(Sender: TObject);
begin
Try
  Table1.edit;
  enfalse;
  Dbedit2.SetFocus;
  Except on Exception do showmessage('数据无法连接！');end;
end;
procedure TKHXXGL.Button3Click(Sender: TObject);  //保存客户信息
begin
 Try
   Table1.Post;
   dbgrid1.Enabled:=true;
   entrue
 Except on Exception do showmessage('数据无法保存！');
 end;
end;

procedure TKHXXGL.Button4Click(Sender: TObject);  //取消保存客户信息
begin
 Try
   Table1.close;
   Table1.open;
   Table1.Filtered:=False;
   entrue;
   button1.setfocus;
   Except on Exception do showmessage('数据无法连接！');end;
end;
procedure TKHXXGL.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then       //回车移动焦点
  If (ActiveControl Is TDbedit) Then
    PerForm(WM_Nextdlgctl,0,0);
end;

procedure TKHXXGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 KHXXGL.Release;      //释放资源
end;
procedure TKHXXGL.Button6Click(Sender: TObject);  //退出
begin
close;
end;
end.