mrcpxxgl.~pas

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

unit MRCPXXGL;

interface

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

type
  TCPXXGL = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table1id: TAutoIncField;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1dan: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1pi: TFloatField;
    Table1ling: TFloatField;
    Table1jy: TFloatField;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    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;
    Table1danjia: TFloatField;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    Function ENFALSE:INTEGER;
    Function ENTRUE:INTEGER;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CPXXGL: TCPXXGL;

implementation

uses mrcpxxgl_cx;

{$R *.DFM}
Function tCPXXGL.ENFALSE;   //定义函数ENFALSE（控件不可用）
BEGIN
Button1.Enabled:=false; Button2.Enabled:=False; Button3.Enabled:=true;
Button4.Enabled:=true;
Button5.Enabled:=false;
Button6.Enabled:=False;
Dbnavigator1.Enabled:=False;
dbgrid1.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;
END ;
Function tCPXXGL.ENTRUE;   //定义函数ENTRUE（控件可用）
BEGIN
Button1.Enabled:=true;
Button2.Enabled:=true;
Button3.Enabled:=False;
Button4.Enabled:=False;
Button5.Enabled:=True;
Button6.Enabled:=True;
Dbnavigator1.Enabled:=True;
dbgrid1.enabled:=true;
Dbedit2.Enabled:=False;
Dbedit3.Enabled:=False;
Dbedit4.Enabled:=False;
Dbedit5.Enabled:=False;
Dbedit7.enabled:=false;
Dbedit8.Enabled:=False;
Dbedit9.Enabled:=False;
Dbedit10.Enabled:=False;
END;
procedure TCPXXGL.FormCreate(Sender: TObject);
begin
 Table1.DatabaseName:='moed';
 Table1.TableName:='chanji';
 Table1.open;
end;
procedure TCPXXGL.FormShow(Sender: TObject);
begin
 ENTRUE;
 table1.IndexFieldNames:='id';
end;
procedure TCPXXGL.Button1Click(Sender: TObject);   //添加新产品
var I:integer;
begin
try
  Table1.Last;
  if table1.fieldbyname('cpbh').asstring<>'' then
   I:=strtoint(table1.fieldbyname('cpbh').asstring)+1
  else i:=1;
   Table1.close;
   Table1.open;
   Table1.append;
   ENFALSE;
   dbedit1.Text:=formatfloat('000000',i);   //生成6位产品编号
   Dbedit2.setfocus;
Except on Exception do showmessage('数据连接错误！');
end;
end;
procedure TCPXXGL.Button3Click(Sender: TObject);  //保存产品信息
begin
try
  Table1.Post;
  Table1.close;
  Table1.open;
  ENTRUE;
  table1.indexfieldnames:='id';
  button1.setfocus;
   Except on Econverterror do showmessage('aaaaaaaa');
       on Exception do showmessage('数据连接错误！');
  end;
end;
procedure TCPXXGL.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then     //回车
  begin
   if (activecontrol is TDBedit) then
     Perform(WM_nextdlgctl,0,0);
  end;
end;
procedure TCPXXGL.FormClose(Sender: TObject; var Action: TCloseAction); //退出
begin
CPXXGL.Release;
end;

procedure TCPXXGL.Button2Click(Sender: TObject);
begin
try
  Table1.edit;
ENFALSE
Except on Exception do showmessage('数据现在无法修改！');end;
end;

procedure TCPXXGL.Button4Click(Sender: TObject);//取消
begin
TAble1.cancel;
Table1.Filtered:=False;
ENTRUE ;     //调用ENTRUE函数
button1.setfocus;
end;

procedure TCPXXGL.Button6Click(Sender: TObject);
begin
close;  //关闭窗体
end;
end.