mrkfxx.pas

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

unit mrkfxx;

interface

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

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

var
  kfxx: Tkfxx;

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

procedure Tkfxx.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;
end;

end;

procedure Tkfxx.BitBtn2Click(Sender: TObject);
begin
table1.filtered:=false;
end;

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

end;

procedure Tkfxx.FormShow(Sender: TObject);
begin
Combobox1.itemindex:=0;
edit1.text:='';
tuihou:='cpbh';

end;

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

procedure Tkfxx.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tkfxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
kfxx.Release;
end;

procedure Tkfxx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then begin
    table1.filtered:=true;
    table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
    end;

end;

end.