mrkhxxcx.~pas

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

unit mrkhxxcx;

interface

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

type
  Tkhxxcx = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    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;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khxxcx: Tkhxxcx;

implementation

uses mrkhxxxg;
  var chaxun:string;
{$R *.DFM}

procedure Tkhxxcx.FormCreate(Sender: TObject);
begin
 TAble1.DatabaseName:='moed';
 TAble1.TAblename:='kehu';
 TAble1.open;
 Table1.Filtered:=false;
end;
procedure Tkhxxcx.BitBtn2Click(Sender: TObject);  //刷新
begin
 table1.filtered:=false;
end;
procedure Tkhxxcx.ComboBox1Click(Sender: TObject);   //选择查询字段
begin
case combobox1.ItemIndex of
0:  begin
    chaxun:='khbh';
    end;
1:  begin
    edit1.setfocus;
    chaxun:='khqc';
    end;
2:  begin
    edit1.setfocus;
    chaxun:='lxdh';
    end;
3:  begin
    edit1.setfocus;
    chaxun:='lxdh';
    end;
end;
end;
procedure Tkhxxcx.FormShow(Sender: TObject);   //设置默认查询字段
begin
 combobox1.itemindex:=0;
 chaxun:='khbh';
end;
procedure Tkhxxcx.BitBtn1Click(Sender: TObject);   //开始查询数
begin
 TAble1.filtered:=True;
 TAble1.Filter:=Format(chaxun+'='+'''%S''',[Edit1.Text]);
end;
procedure Tkhxxcx.Edit1KeyPress(Sender: TObject; var Key: Char); //开始查询数
begin
 If Key = Chr(13) Then begin
  TAble1.filtered:=True;
  TAble1.Filter:=Format(chaxun+'='+'''%S''',[Edit1.Text]);
 end;
end;
procedure Tkhxxcx.BitBtn3Click(Sender: TObject);  //关闭数据库
begin
 close;
end;
end.