?? fghs.~pas
字號:
unit fghs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGridEh, dxfColorButton, cxTextEdit,
cxCheckBox, cxControls, cxContainer, cxEdit, cxLabel, bsSkinCtrls,
cxCurrencyEdit, cxDBEdit;
type
Tfghsck = class(TForm)
dxfColorButton1: TdxfColorButton;
Table1: TADOTable;
DataSource1: TDataSource;
khzl: TADOQuery;
DataSource6: TDataSource;
ePanel2: TbsSkinExPanel;
cxLabel2: TcxLabel;
rBox1: TcxCheckBox;
Edit1: TcxTextEdit;
DBGridEh3: TDBGridEh;
cxLabel1: TcxLabel;
cEdit1: TcxDBCurrencyEdit;
procedure dxfColorButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1PropertiesChange(Sender: TObject);
procedure DBGridEh3DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fghsck: Tfghsck;
implementation
{$R *.dfm}
uses sjk;
procedure Tfghsck.dxfColorButton1Click(Sender: TObject);
begin
table1.UpdateBatch();
khzl.Edit;
khzl['ljqk']:=khzl['ljqk']-table1['je'];
khzl.UpdateBatch();
khzl.Close;
close;
end;
procedure Tfghsck.FormCreate(Sender: TObject);
begin
khzl.Open;
end;
procedure Tfghsck.Edit1PropertiesChange(Sender: TObject);
begin
khzl.Close;
khzl.SQL.Clear;
if rbox1.Checked then
begin
khzl.SQL.Add('select * from ghszl where zjm like :mc');
khzl.Parameters[0].Value:='%'+edit1.Text+'%';
end else
begin
khzl.SQL.Add('select * from ghszl where khmc like :mc');
khzl.Parameters[0].Value:='%'+edit1.Text+'%';
end;
khzl.Open;
end;
procedure Tfghsck.DBGridEh3DblClick(Sender: TObject);
begin
if khzl['ljqk']>0 then
begin
table1.Append;
table1['jzbh']:=formatdatetime('YYYYMMDDhhmmss',now);
table1['jzkm']:='付供貨商欠款';
table1['jzrq']:=date;
table1['je']:=khzl['ljqk'];
table1['jzlx']:='支出';
table1['jzfs']:='現金';
table1['nh']:=formatdatetime('YYYY',date);
table1['yf']:=formatdatetime('MM',date);
table1['bz']:='付'+khzl['khmc']+'欠款';
epanel2.Enabled:=false;
end else showmessage('此供貨商無欠款!');
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -