mrcpxxcx.~pas

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

unit mrcpxxcx;

interface

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

type
  Tcpxxcx = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Table1id: TAutoIncField;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1danjia: TFloatField;
    Table1dan: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1pi: TFloatField;
    Table1ling: TFloatField;
    Table1jy: TFloatField;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  cpxxcx: Tcpxxcx;

implementation

uses mrcpxxxg;
var chixun1:string;
{$R *.DFM}

procedure Tcpxxcx.FormCreate(Sender: TObject);
begin
 Table1.DatabaseName:='moed';
 TAble1.TableName:='chanji';
 TAble1.open;
end;
procedure Tcpxxcx.ComboBox1Click(Sender: TObject); //选择查询条件
begin
if combobox1.itemindex=0 then begin
   chixun1:='cpbh';
   end;
if combobox1.itemindex=1 then begin
   chixun1:='cpmc';
   edit1.setfocus; end;
if combobox1.itemindex=2 then begin
   chixun1:='cpxh';
   edit1.SetFocus; end;
if combobox1.itemindex=3 then begin
   chixun1:='cx';
   edit1.setfocus; end;
end;
procedure Tcpxxcx.FormShow(Sender: TObject);
begin
 TAble1.filtered:=false;   //刷新
 combobox1.itemindex:=0;   //设置查询框内容
 chixun1:='cpbh';    //设置默认查询字段
 edit1.text:='';
end;
procedure Tcpxxcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then begin  //回车查询
  TAble1.filtered:=True;
  TAble1.Filter:=Format(chixun1+'='+'''%S''',[Edit1.Text]);
 end;
end;
procedure Tcpxxcx.DBGrid1DblClick(Sender: TObject);
begin
 Application.CreateForm(TCPXXxg,CPXXxg);  //调入产品修改窗口
 CPXXxg.ShowModal;
end;
procedure Tcpxxcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 cpxxcx.Release;
end;
procedure Tcpxxcx.BitBtn1Click(Sender: TObject); //查询产品信息
begin
 TAble1.filtered:=True;
 TAble1.Filter:=Format(chixun1+'='+'''%S''',[Edit1.Text]);
end;
procedure Tcpxxcx.BitBtn2Click(Sender: TObject);
begin
 TAble1.filtered:=false;   //刷新
end;
procedure Tcpxxcx.BitBtn3Click(Sender: TObject); //退出
begin
 close;
end;
end.