mrcpckthsl.pas

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

unit mrcpckthsl;

interface

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

type
  Tcpckthsl = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Table1: TTable;
    Table1id: TAutoIncField;
    Table1cpbh: TStringField;
    Table1cpmc: TStringField;
    Table1cpxh: TStringField;
    Table1cpbs: TStringField;
    Table1dan: TStringField;
    Table1shuliang: TStringField;
    Table1cx: TStringField;
    Table1cd: TStringField;
    Table1pi: TFloatField;
    Table1ling: TFloatField;
    Table1jy: TFloatField;
    Table1je: TFloatField;
    Table1shi: TFloatField;
    Table1bei: TStringField;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpckthsl: Tcpckthsl;

implementation

uses mrcpckth, MAIN;

{$R *.DFM}

procedure Tcpckthsl.Button1Click(Sender: TObject);
begin
try

   if strtoint(edit1.text)<>0 then begin
     if strtoint(cpckth.Table1.fieldbyname('shuliang').asstring)-
        strtoint(edit1.text)>=0 then begin
        cpckth.table1.edit;
        cpckth.table1.fieldbyname('shuliang').asstring:=
        inttostr(strtoint(cpckth.table1.fieldbyname('shuliang').asstring)-
        strtoint(edit1.text));
        cpckth.table2.insertrecord([cpckth.table1.fieldbyname('cpbh').asstring,
        cpckth.table1.fieldbyname('cpmc').asstring,
        cpckth.table1.fieldbyname('cpxh').asstring,
        cpckth.table1.fieldbyname('cpbs').asstring,
        cpckth.table1.fieldbyname('rdate').asstring,
        cpckth.table1.fieldbyname('jsr').asstring,date,
        mrqp.label1.caption,
        cpckth.table1.fieldbyname('dan').asstring,edit1.text,
        cpckth.table1.fieldbyname('cx').asstring,
        cpckth.table1.fieldbyname('cd').asstring,
        cpckth.table1.fieldbyname('khbh').asstring,
        cpckth.table1.fieldbyname('khqc').asstring,
        cpckth.table1.fieldbyname('lxdh').asstring,
//        cpckth.table1.fieldbyname('pi').asstring,
        cpckth.table1.fieldbyname('ling').asstring,
        cpckth.table1.fieldbyname('je').asstring,
        cpckth.table1.fieldbyname('ying').asstring]);
//        cpckth.table1.fieldbyname('shi').asstring]);
        cpckth.table1.post;
  //      cpckth.table2.post;
        table1.insert;
        table1.FieldByName('cpbh').asstring:=
        cpckth.table1.fieldbyname('cpbh').asstring;
        table1.fieldbyname('cpmc').asstring:=
        cpckth.table1.fieldbyname('cpmc').asstring;
        table1.fieldbyname('cpxh').asstring:=
        cpckth.table1.fieldbyname('cpxh').asstring;
        table1.fieldbyname('cpbs').asstring:=
        cpckth.table1.fieldbyname('cpbs').asstring;
        table1.fieldbyname('dan').asstring:=
        cpckth.table1.fieldbyname('dan').asstring;
        table1.fieldbyname('shuliang').asstring:=
        cpckth.table1.fieldbyname('shuliang').asstring;
        table1.fieldbyname('cx').asstring:=
        cpckth.table1.fieldbyname('cx').asstring;
        table1.fieldbyname('cd').asstring:=
        cpckth.table1.fieldbyname('cd').asstring;
//        table1.fieldbyname('pi').asinteger:=
//        cpckth.table1.fieldbyname('pi').asinteger;
        table1.fieldbyname('ling').asinteger:=
        cpckth.table1.fieldbyname('ling').asinteger;
        table1.fieldbyname('je').asinteger:=
        cpckth.table1.fieldbyname('je').asinteger;
//        table1.fieldbyname('shi').asinteger:=
//        cpckth.table1.fieldbyname('shi').asinteger;
        table1.fieldbyname('bei').asstring:='退货';
        table1.post;
{        if table1.Locate('cpmc',cpckth.table1.fieldbyname('cpmc').asstring,
        [Lopartialkey]) then begin
            table1.Edit;
            table1.fieldbyname('shuliang').asinteger:=
            table1.fieldbyname('shuliang').asinteger+
            strtoint(edit1.text);
 }
        end
     else begin
        showmessage('此货物在我们的售货单上没有那么多，'+#13+
            '请核对后从新输入');
        edit1.setfocus;
        end;
     end
    else begin
      close;
      end;
close;
 except on exception do showmessage('数据错误！');
end;
end;





procedure Tcpckthsl.FormShow(Sender: TObject);
begin
edit1.text:=cpckth.table1.fieldbyname('shuliang').asstring;
end;

procedure Tcpckthsl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
while not cpckth.Table1.Eof do begin
   if cpckth.TAble1.FieldByName('shuliang').asinteger=0 then
      cpckth.Table1.delete;
   cpckth.TAble1.next;

end;
end;
procedure Tcpckthsl.Edit1Exit(Sender: TObject);
begin
if edit1.text='' then
   edit1.text:='0';
end;

procedure Tcpckthsl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then  begin
try

   if strtoint(edit1.text)<>0 then begin
     if strtoint(cpckth.Table1.fieldbyname('shuliang').asstring)-
        strtoint(edit1.text)>=0 then begin
        cpckth.table1.edit;
        cpckth.table1.fieldbyname('shuliang').asstring:=
        inttostr(strtoint(cpckth.table1.fieldbyname('shuliang').asstring)-
        strtoint(edit1.text));
        cpckth.table2.insertrecord([cpckth.table1.fieldbyname('cpbh').asstring,
        cpckth.table1.fieldbyname('cpmc').asstring,
        cpckth.table1.fieldbyname('cpxh').asstring,
        cpckth.table1.fieldbyname('cpbs').asstring,
        cpckth.table1.fieldbyname('rdate').asstring,
        cpckth.table1.fieldbyname('jsr').asstring,date,
        mrqp.label1.caption,
        cpckth.table1.fieldbyname('dan').asstring,edit1.text,
        cpckth.table1.fieldbyname('cx').asstring,
        cpckth.table1.fieldbyname('cd').asstring,
        cpckth.table1.fieldbyname('khbh').asstring,
        cpckth.table1.fieldbyname('khqc').asstring,
        cpckth.table1.fieldbyname('lxdh').asstring,
//        cpckth.table1.fieldbyname('pi').asstring,
        cpckth.table1.fieldbyname('ling').asstring,
        cpckth.table1.fieldbyname('je').asstring,
        cpckth.table1.fieldbyname('ying').asstring]);
//        cpckth.table1.fieldbyname('shi').asstring]);
        cpckth.table1.post;
 //       cpckth.table2.post;
        table1.insert;
        table1.FieldByName('cpbh').asstring:=
        cpckth.table1.fieldbyname('cpbh').asstring;
        table1.fieldbyname('cpmc').asstring:=
        cpckth.table1.fieldbyname('cpmc').asstring;
        table1.fieldbyname('cpxh').asstring:=
        cpckth.table1.fieldbyname('cpxh').asstring;
        table1.fieldbyname('cpbs').asstring:=
        cpckth.table1.fieldbyname('cpbs').asstring;
        table1.fieldbyname('dan').asstring:=
        cpckth.table1.fieldbyname('dan').asstring;
        table1.fieldbyname('shuliang').asstring:=
        cpckth.table1.fieldbyname('shuliang').asstring;
        table1.fieldbyname('cx').asstring:=
        cpckth.table1.fieldbyname('cx').asstring;
        table1.fieldbyname('cd').asstring:=
        cpckth.table1.fieldbyname('cd').asstring;
//        table1.fieldbyname('pi').asinteger:=
//        cpckth.table1.fieldbyname('pi').asinteger;
        table1.fieldbyname('ling').asinteger:=
        cpckth.table1.fieldbyname('ling').asinteger;
        table1.fieldbyname('je').asinteger:=
        cpckth.table1.fieldbyname('je').asinteger;
        table1.fieldbyname('bei').asstring:='退货';

//        table1.fieldbyname('shi').asinteger:=
//        cpckth.table1.fieldbyname('shi').asinteger;
        table1.post;

        end
     else begin
        showmessage('此货物在我们的售货单上没有那么多，'+#13+
            '庆核对后从新输入');
        edit1.setfocus;
        end;
     end
    else begin
      close;
      end;
close;
 except on exception do showmessage('数据错误！');
end;
end;


end;

procedure Tcpckthsl.FormCreate(Sender: TObject);
begin
table1.databasename:='moed';
table1.TableName:='KC';
table1.Open;
end;

procedure Tcpckthsl.Button2Click(Sender: TObject);
begin
close;
end;

end.