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.