?? xschshrz1.pas
字號(hào):
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('結(jié)算金額大于單據(jù)金額.', '提示', MB_OK + MB_ICONERROR);
exit;
end;
if Application.MessageBox('審核入賬后將不能修改單據(jù),是否繼續(xù)?', '提示', 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 //存在則將其拖到前臺(tái)。
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('此單據(jù)已審核入賬成功.', '提示', 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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -