udocumentquery.pas

delphi 源代码 界面上模仿了在2ccc.com网站发布的某一个程序.数据库为SQL2000。

unit uDocumentQuery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  fr_Class, Forms, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxCalendar,
  cxCurrencyEdit, cxButtonEdit, cxCalc, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
  cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxDropDownEdit, cxContainer,
  cxMaskEdit, Buttons, StdCtrls, ExtCtrls, ADODb, dbclient;

type
  TfrmDocumentQuery = class(TForm)
    GroupBox1: TGroupBox;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Bevel1: TBevel;
    cxGrid4: TcxGrid;
    GridMaster: TcxGridDBTableView;
    colDH: TcxGridDBColumn;
    colCodeClient: TcxGridDBColumn;
    colNameClient: TcxGridDBColumn;
    colDatePz: TcxGridDBColumn;
    colDateJH: TcxGridDBColumn;
    colJe: TcxGridDBColumn;
    colNil: TcxGridDBColumn;
    cxGrid4Level1: TcxGridLevel;
    Bevel2: TBevel;
    cxGrid1: TcxGrid;
    GridItem: TcxGridDBTableView;
    colCode: TcxGridDBColumn;
    colName: TcxGridDBColumn;
    colHd: TcxGridDBColumn;
    colKd: TcxGridDBColumn;
    colYs: TcxGridDBColumn;
    colDw: TcxGridDBColumn;
    colSL: TcxGridDBColumn;
    colZl: TcxGridDBColumn;
    colDj: TcxGridDBColumn;
    colJE1: TcxGridDBColumn;
    colNil1: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxDateEdit1: TcxDateEdit;
    cxDateEdit2: TcxDateEdit;
    cxTextEdit1: TcxTextEdit;
    cxComboBox1: TcxComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    cdItem: TClientDataSet;
    cdMaster: TClientDataSet;
    dsMaster: TDataSource;
    dsItem: TDataSource;
    cdMastercdItem: TDataSetField;
    cdMasterIKey: TAutoIncField;
    cdMasterCDH: TStringField;
    cdMasterccode: TStringField;
    cdMastercname: TStringField;
    cdMasterddatePz: TDateTimeField;
    cdMasterddateJh: TDateTimeField;
    cdMasterfje: TBCDField;
    cdMastercTel: TStringField;
    cdMasterCpost_Dz: TStringField;
    procedure cxComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxDateEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxDateEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxTextEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure cxComboBox1PropertiesChange(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
     {ADOCN: TADOConnection;
     cdMaster: TClientDataSet;
     cdItem: TClientDataSet;
     dsMaster: TdataSource;
     dsItem: TdataSource; }

     Procedure EditState(b:boolean);
     procedure init();
     procedure SetColumn(op: integer);
     procedure documentPrint(cdM,cdI: TclientDataSet; iOpt: integer);

     procedure GetData;
     function fcGetJeTotal(cdTem: TclientDataSet):real;
     procedure UpperCasePrint(fje:real);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDocumentQuery: TfrmDocumentQuery;

implementation

uses
   uGlobal, uGetData, uPublic;
{$R *.dfm}

procedure TfrmDocumentQuery.cxComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return: if not cxComboBox1.DroppedDown then
                    cxDateEdit1.SetFocus;
   end;
end;

procedure TfrmDocumentQuery.cxDateEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return: if not cxDateEdit1.DroppedDown then
                    cxDateEdit2.SetFocus;
   end;
end;

procedure TfrmDocumentQuery.cxDateEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return: if not cxDateEdit2.DroppedDown then
                    cxTextEdit1.SetFocus;
   end;
end;

procedure TfrmDocumentQuery.cxTextEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return: cxComboBox1.SetFocus;
   end;
end;

procedure TfrmDocumentQuery.SpeedButton2Click(Sender: TObject);
begin
   cxComboBox1.Text := '';
   cxDateEdit1.Date := date - 1;
   cxDateEdit2.Date := date;
   cxTextEdit1.Text := '';
end;

procedure TfrmDocumentQuery.ToolButton6Click(Sender: TObject);
begin
   close;
end;

procedure TfrmDocumentQuery.ToolButton4Click(Sender: TObject);
begin
   cancelUpdateData(cdMaster);
   cancelUpdateData(cdItem);
   EditState(true);
end;

procedure TfrmDocumentQuery.ToolButton1Click(Sender: TObject);
begin
   ApplyUpdateData(cdMaster);
   ApplyUpdateData(cdItem);
   EditState(true);
end;

procedure TfrmDocumentQuery.EditState(b: boolean);
begin
   gridMaster.OptionsBehavior.PullFocusing := b;
   GridItem.OptionsBehavior.PullFocusing := b;
end;

procedure TfrmDocumentQuery.ToolButton2Click(Sender: TObject);
begin
   EditState(false);
end;

procedure TfrmDocumentQuery.SpeedButton1Click(Sender: TObject);
begin
   GetData;
end;

procedure TfrmDocumentQuery.init;
begin
   Top := frmMain.Top + iTop;
   Left := frmMain.Left + iLeft;
   width := frmMain.Width - iWidth;
   height := frmMain.Height - iHeight;

   cxDateEdit1.Date := date -1;
   cxDateEdit2.Date := date;
   toolBar1.Images := frmMain.Images;

   ///ADOCN := TADOConnection.Create(self);
   {cdMaster := TClientDataSet.create(self);
   dsMaster := TdataSource.Create(self);
   cdItem := TClientDataSet.create(self);
   dsItem := TdataSource.Create(self);}

   //ADOCN.LoginPrompt := false;
   //ADOCN.ConnectionString := 'Provider=SQLOLEDB.1;Password=zz45i8it6;Persist Security Info=False;'+
                            // 'User ID=sa;Initial Catalog=WeiJieData;Data Source=192.168.0.186';
   //ADOCN.Connected := true;

   //cdMaster.Connection := ADOCN;
   //cdItem.connection := ADOCN;
   //cdMaster.RemoteServer := frmMain.DCOMCn;
   //cdItem.RemoteServer := frmMain.DCOMCn;
   //cdMaster.ProviderName := 'pGetDocument';
   //cdMaster.DataSetField :=  cdMastercdItem;

   dsMaster.DataSet := cdMaster;
   dsItem.dataSet := cdItem;
   GridMaster.DataController.DataSource := dsMaster;
   GridItem.DataController.DataSource := dsItem;

   cBoxGetOperation(cxComboBox1);
end;

procedure TfrmDocumentQuery.FormCreate(Sender: TObject);
begin
   init;
end;

procedure TfrmDocumentQuery.SetColumn(op: integer);
begin
   colDh.DataBinding.FieldName := 'CDH';
   colDh.Visible := true;
   colCodeClient.DataBinding.FieldName := 'ccode';
   colCodeClient.Visible := true;
   colNameClient.DataBinding.FieldName := 'cName';
   colNameClient.Visible := true;
   colDatePz.DataBinding.FieldName := 'ddatePz';
   colDatePz.Visible := true;
   colDateJh.DataBinding.FieldName := 'ddateJh';
   colDateJh.Visible := true;
   colJe.DataBinding.FieldName := 'fje';
   colJE.Visible := true;

   colCode.DataBinding.FieldName := 'ccode';
   colCode.Visible := true;
   colName.DataBinding.FieldName := 'cName';
   colName.Visible := true;
   colHD.DataBinding.FieldName := 'fhd';
   colHD.Visible := true;
   colKd.DataBinding.FieldName := 'fkd';
   colKD.Visible := true;
   colYs.DataBinding.FieldName := 'ccolor';
   colYS.Visible := true;
   colDw.DataBinding.FieldName := 'cdw';
   colDW.Visible := true;
   colSL.DataBinding.FieldName := 'fsl';
   colSL.Visible := true;
   colZL.DataBinding.FieldName := 'fzl';
   colZL.Visible := true;
   colDJ.DataBinding.FieldName := 'fdj';
   colDJ.Visible := false;
   colJE1.DataBinding.FieldName := 'fje';
   colJE1.Visible := false;
   case op of
      31,32: Begin
         colDateJh.Visible := false;
         colHD.DataBinding.FieldName := 'cms';
         colKD.Visible := false;
         colDJ.Visible := false;
         colJE1.Visible := false;