mrcpthcx.~pas

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

unit mrcpthcx;

interface

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

type
  Tcpthcx = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Table1id: TAutoIncField;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1cpbs: TStringField;
    Table1rdate: TDateTimeField;
    Table1jsr: TStringField;
    Table1tdate: TDateTimeField;
    Table1tui: TStringField;
    Table1dan: TStringField;
    Table1shuliang: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1khbh: TStringField;
    Table1khqc: TStringField;
    Table1lxdh: TStringField;
    Table1pi: TFloatField;
    Table1ling: TFloatField;
    Table1je: TFloatField;
    Table1ying: TFloatField;
    Table1shi: TFloatField;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpthcx: Tcpthcx;

implementation
var tuihou:string;
{$R *.DFM}

procedure Tcpthcx.FormCreate(Sender: TObject);
begin
table1.databasename:='moed';
table1.tablename:='chanth';
table1.open;
end;

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

procedure Tcpthcx.BitBtn2Click(Sender: TObject);
begin
table1.Filtered:=false;
end;

procedure Tcpthcx.ComboBox1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
   0:begin
     tuihou:='cpbh';
     end;
   1:begin
     tuihou:='cpmc';
     end;
   2:begin
     tuihou:='cpxh';
     end;
   3:begin
     tuihou:='khbh';
     end;
   4:begin
     tuihou:='khqc';
     end;
   5:begin
     tuihou:='jsr';
     end;
   6:begin
     tuihou:='hui';
     end;
end;

end;

procedure Tcpthcx.BitBtn1Click(Sender: TObject);
begin
table1.Filtered:=true;
table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
end;

procedure Tcpthcx.FormShow(Sender: TObject);
begin
combobox1.itemindex:=0;
edit1.text:='';
tuihou:='cpbh';
end;

procedure Tcpthcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form25.release;
end;

procedure Tcpthcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
   PerForm(WM_Nextdlgctl,0,0);
end;
end;
end.