xsthshrz1.pas

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

unit xsthshrz1;

interface

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

type
  Txsthshrz = 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
  xsthshrz: Txsthshrz;

implementation

uses xschd1, MainForm1, xsskd1, xsthd1;

{$R *.DFM}

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

procedure Txsthshrz.BitBtn1Click(Sender: TObject);
begin
  if Application.MessageBox('审核入账后将不能修改单据,是否继续?', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  xsthd.ADOTable1.Edit;
  xsthd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
  xsthd.ADOTable1shr.Value := MainForm.Label4.Caption;
  xsthd.ADOTable1.FieldByName('zt').asstring := '审核入账';
  xsthd.ADOTable1.Post;
  try
    xsthd.ADOTable1.Refresh;
  except
  end;
  xsthd.ADOTable1AfterScroll(xsthd.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('xsskd') then //判断窗体是否存在。
    begin
  //不存在则建立。
      Application.CreateForm(Txsskd, xsskd);
      xsskd.show;
    end
    else
    begin //存在则将其拖到前台。
      xsskd.BringToFront;
      xsskd.SetFocus;
    end;
    if xsskd.Bit6.Enabled then xsskd.Bit6.Click;
    xsskd.Bit5.Click;
    xsskd.ADOTable1jsr.Value := xsthd.ADOTable1ywy.Value;
    xsskd.ADOTable1fkfs.Value := ComboBox1.Text;
    xsskd.ADOTable1fkje.Value := -dxCalcEdit1.Value;
    xsskd.ADOTable1KH.Value := xsthd.ADOTable1KH.Value;
    xsskd.ADOTable1bz.Value := '销售退货款(单号:' + xsthd.ADOTable1code.Value + ')';
    xsskd.Bit6.Click;
    xsskd.ADOTable1.Edit;
    xsskd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
    xsskd.ADOTable1shr.Value := MainForm.Label4.Caption;
    xsskd.ADOTable1.FieldByName('zt').asstring := '审核入账';
    xsskd.ADOTable1.Post;
    xsskd.ADOTable1AfterScroll(xsskd.ADOTable1);
  end;
  Application.MessageBox('此单据已审核入账成功.', '提示', MB_OK + MB_ICONINFORMATION);
  if Mainform.Query1.RecordCount = 0 then
  begin
    xsskd.Close;
  end;
  close;
end;

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

end.