cgthshrz1.pas

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

unit cgthshrz1;

interface

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

type
  Tcgthshrz = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    dxCalcEdit1: TdxCurrencyEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cgthshrz: Tcgthshrz;

implementation

uses MainForm1, cgfkd1, cgthd1;

{$R *.DFM}

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

procedure Tcgthshrz.BitBtn1Click(Sender: TObject);
begin
  if Application.MessageBox('审核入账后将不能修改单据,是否继续?', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  cgthd.ADOTable1.Edit;
  cgthd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
  cgthd.ADOTable1shr.Value := MainForm.Label4.Caption;
  cgthd.ADOTable1.FieldByName('zt').asstring := '审核入账';
  cgthd.ADOTable1.Post;
  try
    cgthd.ADOTable1.Refresh;
  except
  end;
  cgthd.ADOTable1AfterScroll(cgthd.ADOTable1);
  if dxCalcEdit1.Value > 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 := cgthd.ADOTable1ywy.Value;
    cgfkd.ADOTable1fkfs.Value := ComboBox1.Text;
    cgfkd.ADOTable1fkje.Value := -dxCalcEdit1.Value;
    cgfkd.ADOTable1ghs.Value := cgthd.ADOTable1ghs.Value;
    cgfkd.ADOTable1bz.Value := '采购退货款(单号:' + cgthd.ADOTable1code.Value + ')';
    cgfkd.Bit6.Click;
    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 Tcgthshrz.FormCreate(Sender: TObject);
begin
  cgthd.Query1.Close;
  cgthd.Query1.SQL.Text := 'select * from fkfs';
  cgthd.Query1.Open;
  cgthd.Query1.First;
  while not cgthd.Query1.eof do
  begin
    ComboBox1.Items.Add(cgthd.Query1.fields[0].asstring);
    cgthd.Query1.Next;
  end;
  ComboBox1.ItemIndex := 0;
  cgthd.Query1.Close;
  cgthd.Query1.SQL.Text := 'select zje from cgth001 where code=:code';
  cgthd.Query1.Parameters[0].Value := cgthd.Ed1.Text;
  cgthd.Query1.Open;
  dxCalcEdit1.Text := cgthd.Query1.Fields[0].AsString;
end;

end.