mrcprk.pas

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

unit MRCPRK;

interface

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

type
  TCPRK = class(TForm)
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    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;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label14: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label7: TLabel;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox6: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Table2id: TAutoIncField;
    Table2khbh: TStringField;
    Table2khqc: TStringField;
    Table2lxdh: TStringField;
    Table2lxr: TStringField;
    Table2sj: TStringField;
    Table2di: TStringField;
    Table2yb: TStringField;
    Table2cz: TStringField;
    Table2wz: TStringField;
    Table2khyh: TStringField;
    Table2yhzh: TStringField;
    Table2nsh: TStringField;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Table3: TTable;
    Table3id: TAutoIncField;
    Table3cpbh: TStringField;
    Table3cpmc: TStringField;
    Table3cpxh: TStringField;
    Table3danjia: TFloatField;
    Table3dan: TStringField;
    Table3cx: TStringField;
    Table3cd: TStringField;
    Table3pi: TFloatField;
    Table3ling: TFloatField;
    Table3jy: TFloatField;
    Table4: TTable;
    Table5: TTable;
    Table6: TTable;
    Table4cpbh: TStringField;
    Table4cpmc: TStringField;
    Table4cpxh: TStringField;
    Table4cpbs: TStringField;
    Table4danjia: TFloatField;
    Table4dan: TStringField;
    Table4shuliang: TStringField;
    Table4cx: TStringField;
    Table4cd: TStringField;
    Table4pi: TFloatField;
    Table4ling: TFloatField;
    Table4jy: TFloatField;
    Table4je: TFloatField;
    Table4shi: TFloatField;
    Table6id: TAutoIncField;
    Table6cpbh: TStringField;
    Table6cpmc: TStringField;
    Table6cpxh: TStringField;
    Table6cpbs: TStringField;
    Table6jsr: TStringField;
    Table6rdate: TDateTimeField;
    Table6danjia: TFloatField;
    Table6dan: TStringField;
    Table6shuliang: TStringField;
    Table6cx: TStringField;
    Table6cd: TStringField;
    Table6khbh: TStringField;
    Table6khqc: TStringField;
    Table6di: TStringField;
    Table6lxdh: TStringField;
    Table6lxr: TStringField;
    Table6sj: TStringField;
    Table6yb: TStringField;
    Table6pi: TFloatField;
    Table6ling: TFloatField;
    Table6jy: TFloatField;
    Table6je: TFloatField;
    Table6ying: TFloatField;
    Table6shi: TFloatField;
    Table7: TTable;
    Edit11: TEdit;
    Table5id: TAutoIncField;
    Table5jsr: TStringField;
    Table5huo: TStringField;
    Table5rdate: TDateTimeField;
    Table5shuliang: TStringField;
    Table5khbh: TStringField;
    Table5khqc: TStringField;
    Table5chanpin: TMemoField;
    Table5lxdh: TStringField;
    Table5ying: TFloatField;
    Table5shi: TFloatField;
    Table5zhai: TFloatField;
    Table5zhaigx: TStringField;
    Table8: TTable;
    Table8id: TAutoIncField;
    Table8jsr: TStringField;
    Table8huo: TStringField;
    Table8rdate: TDateTimeField;
    Table8shuliang: TStringField;
    Table8khbh: TStringField;
    Table8khqc: TStringField;
    Table8chanpin: TMemoField;
    Table8lxdh: TStringField;
    Table8ying: TFloatField;
    Table8shi: TFloatField;
    Table8zhai: TFloatField;
    Table8zhaigx: TStringField;
    GroupBox7: TGroupBox;
    ComboBox1: TComboBox;
    Label22: TLabel;
    Table9: TTable;
    Table6piao: TStringField;
    Table7id: TAutoIncField;
    Table7piao: TStringField;
    Table7cpbh: TStringField;
    Table7cpmc: TStringField;
    Table7cpxh: TStringField;
    Table7cpbs: TStringField;
    Table7jsr: TStringField;
    Table7rdate: TDateTimeField;
    Table7danjia: TFloatField;
    Table7dan: TStringField;
    Table7shuliang: TStringField;
    Table7cx: TStringField;
    Table7cd: TStringField;
    Table7khbh: TStringField;
    Table7khqc: TStringField;
    Table7di: TStringField;
    Table7lxdh: TStringField;
    Table7lxr: TStringField;
    Table7sj: TStringField;
    Table7yb: TStringField;
    Table7pi: TFloatField;
    Table7ling: TFloatField;
    Table7jy: TFloatField;
    Table7je: TFloatField;
    Table7ying: TFloatField;
    Table7shi: TFloatField;
    Table9piao: TStringField;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Button1: TButton;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit20KeyPress(Sender: TObject; var Key: Char);
    procedure Edit22KeyPress(Sender: TObject; var Key: Char);
    procedure Edit19KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CPRK: TCPRK;
  a11,a12,a13:string;
implementation

uses MAIN,MRKHXXGL,MRCPXXGL,MRCPXXLB;


{$R *.DFM}


procedure TCPRK.FormCreate(Sender: TObject);   //初始化
begin
 Query1.DatabaseName:='moed';
 Query1.SQL.Clear;
 Query1.SQL.Add('Delete from rklsb');
 Query1.ExecSQL;
 query1.Close;
 table1.DatabaseName:='moed';
 table1.tablename:='rklsb';
 table1.open;
 table2.databasename:='moed';
 table2.tablename:='kehu';
 table2.open;
 table3.databasename:='moed';
 table3.tablename:='chanji';
 table3.open;
 table4.databasename:='moed';
 table4.tablename:='kc';
 table4.open;
 table5.databasename:='moed';
 table5.tablename:='jdb';
 table5.open;
 table6.databasename:='moed';
 table6.tablename:='chanrk';
 table6.open;
 table7.databasename:='moed';
 table7.tablename:='chanrk';
 table7.open;
 table8.databasename:='moed';
 table8.tablename:='jdb';
 table8.open;
 table9.databasename:='moed';
 table9.tablename:='rpiao';
 table9.open;
end;
procedure TCPRK.FormShow(Sender: TObject); //设置控件属性
begin
 radiobutton2.Checked:=true;
 edit7.enabled:=true;
 edit8.enabled:=false;
 speedbutton1.Visible:=false;
 groupbox4.enabled:=false;
 speedbutton2.visible:=false;
 bitbtn1.enabled:=true;
 bitbtn2.enabled:=false;
 bitbtn3.enabled:=false;
 query1.Active:=false;
 edit1.text:='0';
 edit2.text:='0';
 edit3.text:='0';
 table9.first;
 while not table9.eof do begin
   combobox1.Items.add(table9.fieldbyname('piao').asstring);
   table9.next;
   end;
 edit7.setfocus;
end;
procedure TCPRK.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then      //回车移动焦点
   If (ActiveControl Is Tedit) Then  PerForm(WM_NextDlgctl,0,0);
end;

procedure TCPRK.RadioButton2Click(Sender: TObject);  //使用客户编号录入客户信息
begin
 edit7.enabled:=true;
 edit8.enabled:=false;
 speedbutton1.visible:=false;
 edit7.setfocus;
end;
procedure TCPRK.RadioButton1Click(Sender: TObject);  //使用客户名称录入客户信息
begin
 edit8.enabled:=true;
 edit7.enabled:=false;
 speedbutton1.Visible:=false;
 edit8.setfocus;
end;

procedure TCPRK.RadioButton3Click(Sender: TObject); //使用快捷方式录入客户信息
begin
 edit7.enabled:=false;
 edit8.Enabled:=false;
 speedbutton1.visible:=true;
end;

procedure TCPRK.SpeedButton1Click(Sender: TObject);  //调入客户信息列表
begin
 Application.CreateForm(TKHXXGL,KHXXGL);
 KHXXGL.showmodal;
end;
procedure TCPRK.RadioButton4Click(Sender: TObject); //使用产品编号选择商品
begin
 edit12.enabled:=true;
 edit13.enabled:=false;
 edit14.enabled:=false;
 speedbutton2.Visible:=false;
 edit12.setfocus;
end;
procedure TCPRK.RadioButton5Click(Sender: TObject); //使用产品型号选择商品
begin
 edit12.enabled:=false;
 edit13.enabled:=true;
 edit14.enabled:=true;
 speedbutton2.visible:=false;
 edit13.setfocus;
end;
procedure TCPRK.RadioButton6Click(Sender: TObject);  //使用快捷键选择商品
begin
 EDIT12.enabled:=false;
 edit13.enabled:=false;
 edit14.enabled:=false;