getysdz.~pas

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

unit Getysdz;

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
  TfrmGetysdz = 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;
    ADOQuery3: TADOQuery;
    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;
    dxDBGrid1Discount: TdxDBGridCurrencyColumn;
    dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn;
    dxDBGrid1RealMoney: TdxDBGridCurrencyColumn;
    dxDBGrid1BookPrice: TdxDBGridCurrencyColumn;
    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);
    procedure ADOQuery2AfterOpen(DataSet: TDataSet);
   // procedure kkg(Sender: TField; var Text: String; DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGetysdz: TfrmGetysdz;

implementation

uses GetMoney;

{$R *.dfm}

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

procedure TfrmGetysdz.FormDestroy(Sender: TObject);
begin
  frmGetMoney:=nil;
end;

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

procedure TfrmGetysdz.cxLookupComboBox1PropertiesChange(Sender: TObject);
var stemp:string;
begin
  stemp:=trim(cxLookupComboBox1.Text);
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select ClientName from tbClient where ClientId='''+stemp+'''';
  ADOQuery4.Open;
  Edit1.Text:=ADOQuery4.Fields[0].asstring;
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:='select * from tbSaleSubs where Unitid='''+stemp+'''';
  ADOQuery2.Open;
 
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select sum(RealMoney) from tbSaleSubs where Unitid='''+stemp+'''';
  ADOQuery4.Open;
  dxEdit1.Text :=ADOQuery4.Fields[0].AsString;
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select sum(getmoney) from InMoneys 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 TfrmGetysdz.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 TfrmGetysdz.dxBarLargeButton3Click(Sender: TObject);
begin
  if trim(cxLookupComboBox1.Text)<>'' then
  ADOQuery3.Delete;
end;

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

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

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

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

procedure TfrmGetysdz.dxBarLargeButton6Click(Sender: TObject);
begin
  if Edit1.Text<>'' then
  begin
    frvariables['uername']:=sysname;
    frvariables['ueraddress']:=sysaddress;
    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;

procedure TfrmGetysdz.ADOQuery2AfterOpen(DataSet: TDataSet);
begin
  adoquery2.FieldByName('Discount').OnGetText:=kkg;
end;

{procedure TfrmGetysdz.kkg(Sender: TField; var Text: String; DisplayText: Boolean);
var rtemp:double;
begin
  if sender.AsString<>'' then
  begin
    rtemp:=sender.AsFloat*100;
    text:=floattostr(rtemp)+'%';
  end;
end; }

end.