?? pasyfcx.pas
字號:
unit pasyfcx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, dxCntner, dxEditor, dxEdLib, cxControls, cxContainer,
cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,data,
cxDBLookupEdit, ExtCtrls, dxBar, dxBarExtItems, dxExEdtr, dxDBTLCl,
dxGrClms, dxDBCtrl, dxDBGrid, dxTL, Grids, DBGrids,DB, ADODB;
type
Tfryfcx = class(TForm)
dxBarManager1: TdxBarManager;
dxBarLargeButton5: TdxBarLargeButton;
dxBarLargeButton4: TdxBarLargeButton;
Panel1: TPanel;
Label1: TLabel;
GroupBox2: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
dxBarButton1: TdxBarButton;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure dxBarLargeButton5Click(Sender: TObject);
procedure dxBarLargeButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fryfcx: Tfryfcx;
implementation
{$R *.dfm}
procedure Tfryfcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure Tfryfcx.FormDestroy(Sender: TObject);
begin
fryfcx:=nil;
end;
procedure Tfryfcx.dxBarLargeButton5Click(Sender: TObject);
var stemp,aa,bb,cc,dd:string;
begin
stemp:='';
ADOQuery1.Close;
ADOQuery1.SQL.Text:='delete from tblsb';
ADOQuery1.ExecSQL;
ADOQuery1.Close;
stemp:='select (select Clientname from tbPublish where ClientId=a.UnitId) as unitid, Sum(a.TotalMoney) as RealMoney ,'+
'((select sum(OutMoney) from OutMoneys where unitid=a.unitid )) '+
'as GetMoney ,(Sum(a.TotalMoney)-(select sum(OutMoney) from OutMoneys'+
' where unitid=a.unitid )) as aa from tbBookingSubs a group by a.unitid';
ADOQuery1.SQL.Text:=stemp;
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
aa:=ADOQuery1.Fields[0].AsString;
bb:='0';
cc:='0';
dd:='0';
if not ADOQuery1.Fields[1].IsNull then bb:=ADOQuery1.Fields[1].AsString ;
if not ADOQuery1.Fields[2].IsNull then cc:=ADOQuery1.Fields[2].AsString ;
if not ADOQuery1.Fields[3].IsNull then dd:=ADOQuery1.Fields[3].AsString ;
if cc='0' then dd:=bb;
ADOQuery2.Close;
ADOQuery2.SQL.Text:='insert into tblsb values('''+aa+''','+bb+','+cc+','+dd+')';
adoquery2.ExecSQL;
ADOQuery1.Next;
end;
if RadioButton1.Checked then
stemp:='select * from tblsb';
if RadioButton3.Checked then
begin
stemp:='select * from tblsb where realmoney=getmoney';
end;
if RadioButton2.Checked then
begin
stemp:='select * from tblsb where realmoney-getmoney>0';
end;
if RadioButton4.Checked then
begin
if trim(edit2.Text)='' then
begin
application.MessageBox(pchar('輸入的數量不能為空!'),'提示',0);
exit;
end;
stemp:='select * from tblsb where realmoney-getmoney>'+edit2.text;
end;
if RadioButton5.Checked then
begin
if trim(edit1.Text)='' then
begin
application.MessageBox(pchar('輸入的數量不能為空!'),'提示',0);
exit;
end;
stemp:='select * from tblsb where realmoney-getmoney<'+edit1.text;
end;
ADOQuery3.Close;
ADOQuery3.SQL.Text:=stemp;
ADOQuery3.Open;
end;
procedure Tfryfcx.dxBarLargeButton4Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -