outmoney.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 179 行

unit OutMoney;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxBar, dxBarExtItems, StdCtrls, dxCntner, dxEditor, dxExEdtr,
  dxDBEdtr, dxDBELib, DB, ADODB,data, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, dxDBTLCl, dxGrClms, dxEdLib, FR_DSet,
  FR_DBSet, FR_Class, FR_Desgn;

type
  TfrmOutMoney = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label2: TLabel;
    cxLookupComboBox1: TcxLookupComboBox;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1SaleId: TdxDBGridColumn;
    dxDBGrid1BookId: TdxDBGridColumn;
    dxDBGrid1BookName: TdxDBGridColumn;
    dxDBGrid1BookCount: TdxDBGridMaskColumn;
    dxDBGrid1BookPrice: TdxDBGridMaskColumn;
    dxDBGrid1Discount: TdxDBGridMaskColumn;
    dxDBGrid1TotalMoney: TdxDBGridMaskColumn;
    dxDBGrid1RealMoney: TdxDBGridMaskColumn;
    Label3: TLabel;
    dxEdit1: TdxEdit;
    Label4: TLabel;
    dxEdit2: TdxEdit;
    Label1: TLabel;
    ADOQuery4: TADOQuery;
    Label5: TLabel;
    dxEdit3: TdxEdit;
    dxBarLargeButton5: TdxBarLargeButton;
    Label6: TLabel;
    Edit1: TEdit;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    dxBarLargeButton6: TdxBarLargeButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cxLookupComboBox1PropertiesChange(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
    procedure ADOQuery3AfterPost(DataSet: TDataSet);
    procedure dxBarLargeButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOutMoney: TfrmOutMoney;

implementation

{$R *.dfm}

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

procedure TfrmOutMoney.FormDestroy(Sender: TObject);
begin
  frmoutMoney:=nil;
end;

procedure TfrmOutMoney.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;

procedure TfrmOutMoney.cxLookupComboBox1PropertiesChange(Sender: TObject);
var stemp:string;
begin
  stemp:=trim(cxLookupComboBox1.Text);
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select ClientName from tbPublish where ClientId='''+stemp+'''';
  ADOQuery4.Open;
  Edit1.Text:=ADOQuery4.Fields[0].asstring;
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:='select * from tbBookingSubs where Unitid='''+stemp+'''';
  ADOQuery2.Open;
 // ADOQuery3.Close;
 // ADOQuery3.SQL.Text:='select * from OutMoneys where Unitid='''+stemp+'''';
 // ADOQuery3.Open;
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select sum(TotalMoney) from tbBookingSubs where Unitid='''+stemp+'''';
  ADOQuery4.Open;
  dxEdit1.Text :=ADOQuery4.Fields[0].AsString;
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select sum(outmoney) from OutMoneys where Unitid='''+stemp+'''';
  ADOQuery4.Open;
  dxEdit2.Text :=ADOQuery4.Fields[0].AsString;
  if (dxEdit1.Text<>'') and (dxEdit2.Text<>'')  then
  dxEdit3.Text:=floattostr(strtofloat(dxEdit1.Text)-strtofloat(dxEdit2.Text));

end;

procedure TfrmOutMoney.dxBarLargeButton1Click(Sender: TObject);
begin
 { if trim(cxLookupComboBox1.Text)<>'' then
  begin
    ADOQuery3.Append;
    ADOQuery3.FieldByName('unitid').AsString:=trim(cxLookupComboBox1.Text);
    ADOQuery3.FieldByName('indate').AsString:=formatdatetime('YYYY-MM-DD',now);
  end;  }
end;

procedure TfrmOutMoney.dxBarLargeButton3Click(Sender: TObject);
begin
  {if trim(cxLookupComboBox1.Text)<>'' then
  ADOQuery3.Delete;}
end;

procedure TfrmOutMoney.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

procedure TfrmOutMoney.dxBarLargeButton2Click(Sender: TObject);
begin
 {   if trim(cxLookupComboBox1.Text)<>'' then
  if ADOQuery3.State in dseditmodes then ADOQuery3.Post; }
end;

procedure TfrmOutMoney.dxBarLargeButton5Click(Sender: TObject);
begin
  cxLookupComboBox1PropertiesChange(nil);
end;

procedure TfrmOutMoney.ADOQuery3AfterPost(DataSet: TDataSet);
begin
  cxLookupComboBox1PropertiesChange(nil);
end;

procedure TfrmOutMoney.dxBarLargeButton6Click(Sender: TObject);
begin
  if edit1.Text<>'' then
  begin
    frvariables['uername']:='河北春雨出版社';
    frvariables['ueraddress']:='地址：石家庄友谊大街186号二楼255室';
    frvariables['dwbh']:=cxLookupComboBox1.Text;
    frvariables['dwmc']:=Edit1.Text;
    frvariables['je']:=dxEdit1.Text;
    frvariables['hk']:=dxEdit2.Text;
    frvariables['qk']:=dxEdit3.Text;
    frvariables['date']:=formatdatetime('YYYY-MM-DD',now);
    frvariables['username']:='张小春';
    frReport1.ShowReport;
  end
  else
  begin
    application.MessageBox(pchar('请选择单位!'),'提示',0);
    exit;
  end;
end;

end.