【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：mrcpckthsl.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    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