xschshrz1.pas

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

unit xschshrz1;

interface

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

type
  Txschshrz = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    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
  xschshrz: Txschshrz;

implementation

uses xschd1, MainForm1, xsskd1;

{$R *.DFM}

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

procedure Txschshrz.BitBtn1Click(Sender: TObject);
begin
  if strtofloat(floattostr(dxCalcEdit1.Value)) > strtofloat(floattostr(xschd.Query1.Fields[0].Value)) then
  begin
    Application.MessageBox('结算金额大于单据金额.', '提示', MB_OK + MB_ICONERROR);
    exit;
  end;
  if Application.MessageBox('审核入账后将不能修改单据,是否继续?', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  xschd.ADOTable1.Edit;
  xschd.ADOTable1shrq.Value := strtodate(datetostr(MainForm.DateTimePicker1.Date));
  xschd.ADOTable1shr.Value := MainForm.Label4.Caption;
  xschd.ADOTable1.FieldByName('zt').asstring := '审核入账';
  xschd.ADOTable1.Post;
  try
    xschd.ADOTable1.Refresh;
  except
  end;
  xschd.ADOTable1AfterScroll(xschd.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('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 := xschd.ADOTable1ywy.Value;
    xsskd.ADOTable1fkfs.Value := ComboBox1.Text;
    try
    xsskd.ADOTable1fkje.Value := strtofloat(dxCalcEdit1.Text);
    except
    xsskd.ADOTable1fkje.Value := 0;
    end;
    xsskd.ADOTable1KH.Value := xschd.ADOTable1KH.Value;
    xsskd.Bit6.Click;
    xsskd.ADOTable2.Append;
    xsskd.ADOTable2.FieldByName('cgdh').Value := xschd.ADOTable1code.Value;
    xsskd.ADOTable2.FieldByName('djje').Value := xschd.ADOTable1zje.Value;
    xsskd.ADOTable2.FieldByName('yfje').Value := 0;
    try
    xsskd.ADOTable2.FieldByName('fkje').Value := strtofloat(dxCalcEdit1.Text);
    except
    xsskd.ADOTable2.FieldByName('fkje').Value := 0;
    end;
    xsskd.ADOTable2.Post;
    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 Txschshrz.FormCreate(Sender: TObject);
begin
  xschd.Query1.Close;
  xschd.Query1.SQL.Text := 'select * from fkfs';
  xschd.Query1.Open;
  xschd.Query1.First;
  while not xschd.Query1.eof do
  begin
    ComboBox1.Items.Add(xschd.Query1.fields[0].asstring);
    xschd.Query1.Next;
  end;
  ComboBox1.ItemIndex := 0;
  xschd.Query1.Close;
  xschd.Query1.SQL.Text := 'select zje from xsch001 where code=:code';
  xschd.Query1.Parameters[0].Value := xschd.Ed1.Text;
  xschd.Query1.Open;
  dxCalcEdit1.Text := xschd.Query1.Fields[0].AsString;
end;

end.