mrrkxxcx.~pas

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

unit mrrkxxcx;

interface

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

type
  Trkxxcx = 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
  rkxxcx: Trkxxcx;

implementation
var tuihou:string;
{$R *.DFM}
procedure Trkxxcx.FormCreate(Sender: TObject);
begin
table1.databasename:='moed';
table1.tablename:='chanrk';
table1.open;
end;
procedure Trkxxcx.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 Trkxxcx.BitBtn2Click(Sender: TObject);  //刷新数据
begin
 table1.filtered:=false;
end;

procedure Trkxxcx.BitBtn1Click(Sender: TObject);  //查询数据
begin
 table1.filtered:=true;
 table1.filter:=format(tuihou+'='+'''%s''',[edit1.text]);
end;

procedure Trkxxcx.FormShow(Sender: TObject);    //设置默认查询字段和内容
begin
 Combobox1.itemindex:=0;
 edit1.text:='';      //查询内容为空
 tuihou:='cpbh';      //默认查询字段为产品编号
end;

procedure Trkxxcx.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;
procedure Trkxxcx.BitBtn3Click(Sender: TObject);   //退出
begin
close;
end;

procedure Trkxxcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
rkxx.Release;
end;
end.