mrcpck.pas

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

unit mrcpck;

interface

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

type
  Tcpck = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1cpbs: TStringField;
    Table1rdate: TDateTimeField;
    Table1jsr: TStringField;
    Table1dan: TStringField;
    Table1shuliang: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1khbh: TStringField;
    Table1khqc: TStringField;
    Table1lxdh: TStringField;
    Table1ling: TFloatField;
    Table1je: TFloatField;
    Table1ying: TFloatField;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Table2: TTable;
    Table3: TTable;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Table3id: TAutoIncField;
    Table3cpbh: TStringField;
    Table3cpmc: TStringField;
    Table3cpxh: TStringField;
    Table3cpbs: TStringField;
    Table3danjia: TFloatField;
    Table3dan: TStringField;
    Table3shuliang: TStringField;
    Table3cx: TStringField;
    Table3cd: TStringField;
    Table3pi: TFloatField;
    Table3ling: TFloatField;
    Table3jy: TFloatField;
    Table3je: TFloatField;
    Table3shi: TFloatField;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox2: TComboBox;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Table4: TTable;
    Table4piao: TStringField;
    Table4cpbh: TStringField;
    Table4cpmc: TStringField;
    Table4cpxh: TStringField;
    Table4cpbs: TStringField;
    Table4rdate: TDateTimeField;
    Table4jsr: TStringField;
    Table4dan: TStringField;
    Table4shuliang: TStringField;
    Table4cx: TStringField;
    Table4cd: TStringField;
    Table4khbh: TStringField;
    Table4khqc: TStringField;
    Table4lxdh: TStringField;
    Table4ling: TFloatField;
    Table4je: TFloatField;
    Table4ying: TFloatField;
    BitBtn3: TBitBtn;
    Table5: TTable;
    Table5piao: TStringField;
    BitBtn8: TBitBtn;
    Table6: TTable;
    Table6id: TAutoIncField;
    Table6jsr: TStringField;
    Table6huo: TStringField;
    Table6rdate: TDateTimeField;
    Table6shuliang: TStringField;
    Table6khbh: TStringField;
    Table6khqc: TStringField;
    Table6chanpin: TMemoField;
    Table6lxdh: TStringField;
    Table6ying: TFloatField;
    Table6shi: TFloatField;
    Table6zhai: TFloatField;
    Table6zhaigx: TStringField;
    Label11: TLabel;
    ListBox1: TListBox;
    Label12: TLabel;
    BitBtn9: TBitBtn;
    Table3bei: TStringField;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label13: TLabel;
    Edit10: TEdit;
    Label14: TLabel;
    Table7: TTable;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit5Exit(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpck: Tcpck;

implementation

uses main;

{$R *.DFM}
var a1,a2,a3,a4,a5,a6,a7,a8,a9:string;
procedure Tcpck.FormShow(Sender: TObject);
begin
 table2.First;
 while not table2.eof do begin
    combobox1.items.add(table2.fieldbyname('khbh').asstring);//添加客户编号
    table2.next;
 end;
 edit1.text:='0';  //总数量为0
 edit4.Text:='0';  // 总金额为0
 edit5.text:='0';  //总应付为0
 combobox1.setfocus;
end;
procedure Tcpck.FormCreate(Sender: TObject);
begin
 table1.databasename:='moed';
 table1.tablename:='cklsb';
 table1.open;
 table2.databasename:='moed';
 table2.tablename:='kehu';
 table2.open;
 table3.databasename:='moed';
 table3.tablename:='kc';
 table3.open;
 table4.databasename:='moed';
 table4.tablename:='chanck';
 table4.open;
 table5.databasename:='moed';
 table5.TableName:='piao';
 table5.open;
 table6.databasename:='moed';
 table6.tablename:='jdb';
 table6.open;

end;
procedure Tcpck.ComboBox1Click(Sender: TObject); //选择客户
begin
 table2.Locate('khbh',combobox1.text,[lopartialkey]); //查询客户
 edit2.text:=table2.fieldbyname('khqc').asstring; //显示客全称
 edit3.text:=table2.fieldbyname('lxdh').asstring; //显示客户电话
end;
procedure Tcpck.BitBtn4Click(Sender: TObject);  //退出系统
begin
 close;
end;
procedure Tcpck.BitBtn1Click(Sender: TObject);   //出库登记
var year,month,day:word; I:integer;
begin
 I:=1;
 try
  if edit2.text<>'' then begin
   bitbtn4.enabled:=false;  bitbtn1.enabled:=false; //添加、退出按钮不可用
   bitbtn9.enabled:=true;
   bitbtn3.enabled:=true;
   bitbtn2.enabled:=true;
   bitbtn5.enabled:=true;
   bitbtn6.enabled:=true;
   bitbtn7.enabled:=true;
   bitbtn8.enabled:=true;
   table5.first;
   while not table5.eof do begin
    I:=I+1;
    table5.next;
   end;
   decodedate(now,year,month,day);
   combobox2.text:=inttostr(year)+inttostr(month)+inttostr(day)+'0'+inttostr(i); //生成出库票号
   combobox2.enabled:=false;
   datasource1.DataSet:=table1;   //显示临时出库信息
   table1.open;
   table1.first;
   while not table1.eof do begin
    table1.delete;
   end;
   table1.insert;
   edit6.text:=''; edit9.text:=''; edit10.text:='';  //设置产品编号、产品名称、金额为空
   edit7.text:='0'; edit8.text:='0';  //设置单价、数量为零
   edit6.setfocus;
   end else begin
    showmessage('请将客户信息添全。');
   end;
   datasource1.DataSet:=table4;  //显示库存情况
   table4.open;
   except
   showmessage('');
 end;
end;
procedure Tcpck.BitBtn2Click(Sender: TObject);  //保存出库
var i:string;
begin
 try
 i:='';
 If strtoint(edit5.Text) <> strtoint(edit4.Text) Then begin
    showmessage('实付款于应付款不符，系统将建立借贷关系。');
    table1.first;
    while not table1.eof do begin
     I:=I+'[产品名称：('+table1.fieldbyname('cpmc').asstring+')数量:('+table1.fieldbyname('shuliang').asstring+')]; ';
     table1.next;
    end;
    table6.Insert;  //保存借贷情况
    table6.fieldbyname('jsr').asstring:=mrqp.label1.caption;
    table6.fieldbyname('rdate').asdatetime:=date;
    table6.fieldbyname('khbh').asstring:=combobox1.text;
    table6.fieldbyname('khqc').asstring:=edit2.text;
    table6.fieldbyname('lxdh').asstring:=edit3.text;
    table6.fieldbyname('chanpin').asstring:=i;
    table6.fieldbyname('ying').asinteger:=strtoint(edit4.Text);
    table6.fieldbyname('shi').asinteger:=strtoint(edit5.text);
    table6.fieldbyname('shuliang').asstring:=edit1.text;
    if strtoint(edit5.text)>strtoint(edit4.text) then begin  //判断借入借出
      table6.fieldbyname('huo').asstring:='出库';
      table6.fieldbyname('zhaigx').asstring:='借入';
      table6.fieldbyname('zhai').asinteger:=strtoint(edit5.text)-strtoint(edit4.text);
     end else begin
      table6.fieldbyname('huo').asstring:='出库';
      table6.fieldbyname('zhaigx').asstring:='借出';
      table6.fieldbyname('zhai').asinteger:=strtoint(edit4.text)-strtoint(edit5.text);
     end;
     table6.post;  //保存借贷情况
   end;