unitbalance.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit UnitBalance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, wwdbedit, pngimage, ExtCtrls, RzButton,
  wwdbdatetimepicker, wwdblook;

type
  TFrmBalance = class(TForm)
    BtnOK: TRzBitBtn;
    BtnNo: TRzBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Image1: TImage;
    wwDBEdit4: TwwDBEdit;
    Label5: TLabel;
    Label154: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label2: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnNoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBalance: TFrmBalance;

implementation

uses DMUnit;

{$R *.dfm}

procedure TFrmBalance.BtnOKClick(Sender: TObject);
Var
  i:Integer;
begin
  if Messagebox(handle,'您确定要对选查询出来的送货单进行结算吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
  Begin
    if DM.ADOQueryOrderBill.RecordCount>DM.ADOTableSystemSet.FieldByName('Picture_UpperLimit').AsInteger THEN
    Begin
      Application.MessageBox('本次结算的送货单张数超过了系统设置的最大数，不能进行结算!','提醒',MB_IconInformation);
      Exit;
    End;
     DM.ADOQueryOrderBill.First;
     For i:=1 to DM.ADOQueryOrderBill.RecordCount do
     Begin
        DM.ADOQueryOrderBill.Edit;
        DM.ADOQueryOrderBill.FieldByName('Balance_Flag').AsBoolean:=True;
        DM.ADOQueryOrderBill.FieldByName('Balance_Date').AsDateTime:=wwDBDateTimePicker1.Date;
        DM.ADOQueryOrderBill.FieldByName('Balance_Men').AsString:=wwDBLookupCombo1.Text;
        DM.ADOQueryOrderBill.FieldByName('LackMoney').AsCurrency:=StrToFloat(wwDBEdit4.text);
        DM.ADOQueryOrderBill.Post;
        DM.ADOQueryOrderBill.Next;
     Next;
     End;

     DM.ADOQueryLackMoney.SQL.Clear;
     DM.ADOQueryLackMoney.SQL.Add(' Select * From ClientName where ClientName='''+DM.ADOQueryOrderBill.FieldByName('OrderClient').AsString+'''');
     DM.ADOQueryLackMoney.Active:=True;
     DM.ADOQueryLackMoney.Edit;
     DM.ADOQueryLackMoney.FieldByName('LackMoney').AsCurrency:=StrToFloat(wwDBEdit4.text);
     DM.ADOQueryLackMoney.Post;

     Application.MessageBox('结算成功!','提醒',MB_IconInformation);
     Close;  
  end;
end;

procedure TFrmBalance.BtnNoClick(Sender: TObject);
begin
  Close;
end;

end.