cgshdshrz1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit cgshdshrz1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, dxCntner, dxEditor, dxExEdtr, dxEdLib, Mask,
  ToolEdit, CurrEdit;

type
  Tcgshshrz = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    ComboBox1: TComboBox;
    dxCalcEdit1: TCurrencyEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cgshshrz: Tcgshshrz;

implementation

uses cgrk1, MainForm1, cgfkd1;

{$R *.DFM}

procedure Tcgshshrz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure Tcgshshrz.BitBtn1Click(Sender: TObject);
begin
  if strtofloat(floattostr(dxCalcEdit1.Value)) > strtofloat(floattostr(cgrkd.Query1.Fields[0].Value)) then
  begin
    Application.MessageBox('结算金额大于单据金额.', '提示', MB_OK + MB_ICONERROR);
    exit;
  end;
  if Application.MessageBox('审核入账后将不能修改单据,是否继续?', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  cgrkd.ADOTable1.Edit;
  cgrkd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
  cgrkd.ADOTable1shr.Value := MainForm.Label4.Caption;
  cgrkd.ADOTable1.FieldByName('zt').asstring := '审核入账';
  cgrkd.ADOTable1.Post;
  try
    cgrkd.ADOTable1.Refresh;
  except
  end;
  cgrkd.ADOTable1AfterScroll(cgrkd.ADOTable1);
  if strtofloat(dxCalcEdit1.text) > 0 then
  begin
    Mainform.Query1.close;
    Mainform.Query1.sql.Clear;
    Mainform.Query1.sql.add('select * from menu where czyid=:czyid and menuname=:menuname');
    Mainform.Query1.Parameters[0].Value := Mainform.Label4.Caption;
    Mainform.Query1.Parameters[1].Value := '采购付款单';
    Mainform.Query1.open;
    if not MainForm.ExistForm('cgfkd') then //判断窗体是否存在。
    begin
  //不存在则建立。
      Application.CreateForm(Tcgfkd, cgfkd);
      cgfkd.show;
    end
    else
    begin //存在则将其拖到前台。
      cgfkd.BringToFront;
      cgfkd.SetFocus;
    end;
    if cgfkd.Bit6.Enabled then cgfkd.Bit6.Click;
    cgfkd.Bit5.Click;
    cgfkd.ADOTable1jsr.Value := cgrkd.ADOTable1ywy.Value;
    cgfkd.ADOTable1fkfs.Value := ComboBox1.Text;
    try
    cgfkd.ADOTable1fkje.Value := dxCalcEdit1.Value;
    except
    cgfkd.ADOTable1fkje.Value := 0;
    end;
    cgfkd.ADOTable1ghs.Value := cgrkd.ADOTable1ghs.Value;
    cgfkd.Bit6.Click;
    cgfkd.ADOTable2.Append;
    cgfkd.ADOTable2.FieldByName('cgdh').Value := cgrkd.ADOTable1code.Value;
    cgfkd.ADOTable2.FieldByName('djje').Value := cgrkd.ADOTable1zje.Value;
    cgfkd.ADOTable2.FieldByName('yfje').Value := 0;
    try
    cgfkd.ADOTable2.FieldByName('fkje').Value := dxCalcEdit1.Value;
    except
    cgfkd.ADOTable2.FieldByName('fkje').Value := 0;
    end;
    cgfkd.ADOTable2.Post;
    cgfkd.ADOTable1.Edit;
    cgfkd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
    cgfkd.ADOTable1shr.Value := MainForm.Label4.Caption;
    cgfkd.ADOTable1.FieldByName('zt').asstring := '审核入账';
    cgfkd.ADOTable1.Post;
    cgfkd.ADOTable1AfterScroll(cgfkd.ADOTable1);
  end;
  Application.MessageBox('此单据已审核入账成功.', '提示', MB_OK + MB_ICONINFORMATION);
  if Mainform.Query1.RecordCount = 0 then
  begin
    cgfkd.Close;
  end;
  close;
end;

procedure Tcgshshrz.FormCreate(Sender: TObject);
begin
  cgrkd.Query1.Close;
  cgrkd.Query1.SQL.Text := 'select * from fkfs';
  cgrkd.Query1.Open;
  cgrkd.Query1.First;
  while not cgrkd.Query1.eof do
  begin
    ComboBox1.Items.Add(cgrkd.Query1.fields[0].asstring);
    cgrkd.Query1.Next;
  end;
  ComboBox1.ItemIndex := 0;
  cgrkd.Query1.Close;
  cgrkd.Query1.SQL.Text := 'select sum(je) from cgsh002 where code=:code';
  cgrkd.Query1.Parameters[0].Value := cgrkd.Ed1.Text;
  cgrkd.Query1.Open;
  dxCalcEdit1.Value := cgrkd.Query1.Fields[0].Value;
end;

end.