zmlocate.pas

销售帐目管理

unit ZmLocate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIPageControl, SUITabControl, Grids, DBGridEh, ExtCtrls,
  StdCtrls, ComCtrls, SUIStatusBar, SUIForm, SUIComboBox, SUIButton,
  SUIEdit, DB, SUIDlg, SUISideChannel, DBGrids,
  SUIDBCtrls, FR_DSet, FR_DBSet, FR_Class, DBTables, FR_DCtrl;

type
  TFrmZmLocate = class(TForm)
    suiForm1: TsuiForm;
    suiStatusBar1: TsuiStatusBar;
    grp1: TGroupBox;
    grp2: TGroupBox;
    spl1: TSplitter;
    grp3: TGroupBox;
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    suiTabSheet3: TsuiTabSheet;
    suiTabSheet4: TsuiTabSheet;
    Label1: TLabel;
    suiComboBox1: TsuiComboBox;
    Label2: TLabel;
    suiComboBox2: TsuiComboBox;
    Label3: TLabel;
    suiEdit1: TsuiEdit;
    suiCheckBox1: TsuiCheckBox;
    Label4: TLabel;
    suiCheckBox2: TsuiCheckBox;
    Label5: TLabel;
    suiButton1: TsuiButton;
    BtnPrint: TsuiButton;
    suiMessageDialog1: TsuiMessageDialog;
    dtp1: TDateTimePicker;
    dtp2: TDateTimePicker;
    dtp3: TDateTimePicker;
    dtp4: TDateTimePicker;
    suiSideChannel1: TsuiSideChannel;
    DBGridEh2: TDBGridEh;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    DBGridEh6: TDBGridEh;
    suiDBGrid1: TsuiDBGrid;
    frDBDataSet_Jbhtjkb: TfrDBDataSet;
    frDBDataSet_fjhtqkb: TfrDBDataSet;
    frDBDataSet_fhqkb: TfrDBDataSet;
    frDBDataSet_kpqkb: TfrDBDataSet;
    frDBDataSet_fjkpqkb: TfrDBDataSet;
    frDBDataSet_skqkb: TfrDBDataSet;
    qry1: TQuery;
    qry2: TQuery;
    frReport1: TfrReport;
    suiCheckBox3: TsuiCheckBox;
    dtp5: TDateTimePicker;
    Label6: TLabel;
    dtp6: TDateTimePicker;
    suiCheckBox4: TsuiCheckBox;
    suiEdit2: TsuiEdit;
    suiCheckBox5: TsuiCheckBox;
    suiEdit3: TsuiEdit;
    ds_jbhtqkb: TDataSource;
    ds_fjhtqkb: TDataSource;
    ds_fhqkb: TDataSource;
    ds_skqkb: TDataSource;
    ds_kpqkb: TDataSource;
    ds_fjkpqkb: TDataSource;
    tbl_fjhtqkb: TTable;
    tbl_fhqkb: TTable;
    tbl_skqkb: TTable;
    tbl_kpqkb: TTable;
    tbl_fjkpqkb: TTable;
    qry_jbhtqkb: TQuery;
    tbl_sjxxb: TTable;
    tbl_dwxxb: TTable;
    ds_sjxxb: TDataSource;
    ds_dwxxb: TDataSource;
    tbl_fjhtqkbStringField: TStringField;
    tbl_fjhtqkbStringField2: TStringField;
    tbl_fjhtqkbStringField3: TStringField;
    qry_jbhtqkbStringField: TStringField;
    qry_jbhtqkbStringField2: TStringField;
    tbl_fhqkbStringField3: TStringField;
    tbl_fhqkbStringField2: TStringField;
    tbl_fhqkbStringField: TStringField;
    tbl_fjkpqkbStringField: TStringField;
    tbl_fjkpqkbStringField2: TStringField;
    tbl_fjkpqkbStringField3: TStringField;
    tbl_spxxb: TTable;
    ds_spxxb: TDataSource;
    qry_jbhtqkbBDEDesigner: TStringField;
    qry_jbhtqkbBDEDesigner2: TStringField;
    qry_jbhtqkbBDEDesigner3: TIntegerField;
    qry_jbhtqkbBDEDesigner4: TIntegerField;
    qry_jbhtqkbBDEDesigner5: TStringField;
    qry_jbhtqkbBDEDesigner6: TIntegerField;
    qry_jbhtqkbBDEDesigner7: TStringField;
    qry_jbhtqkbBDEDesigner8: TStringField;
    qry_jbhtqkbBDEDesigner9: TMemoField;
    tbl_fjhtqkbBDEDesigner: TStringField;
    tbl_fjhtqkbBDEDesigner2: TIntegerField;
    tbl_fjhtqkbBDEDesigner3: TIntegerField;
    tbl_fjhtqkbBDEDesigner4: TFloatField;
    tbl_fhqkbBDEDesigner: TStringField;
    tbl_fhqkbBDEDesigner2: TStringField;
    tbl_fhqkbBDEDesigner3: TIntegerField;
    tbl_fhqkbBDEDesigner4: TIntegerField;
    tbl_fhqkbBDEDesigner5: TStringField;
    tbl_fhqkbBDEDesigner6: TStringField;
    tbl_skqkbBDEDesigner: TStringField;
    tbl_skqkbBDEDesigner2: TStringField;
    tbl_skqkbBDEDesigner3: TFloatField;
    tbl_skqkbBDEDesigner4: TStringField;
    tbl_kpqkbBDEDesigner: TStringField;
    tbl_kpqkbBDEDesigner2: TStringField;
    tbl_kpqkbBDEDesigner3: TStringField;
    tbl_kpqkbBDEDesigner4: TStringField;
    tbl_fjkpqkbBDEDesigner: TStringField;
    tbl_fjkpqkbBDEDesigner2: TIntegerField;
    tbl_fjkpqkbBDEDesigner3: TIntegerField;
    tbl_fjkpqkbBDEDesigner4: TFloatField;
    tbl_sjxxbBDEDesigner: TIntegerField;
    tbl_sjxxbBDEDesigner2: TStringField;
    tbl_dwxxbBDEDesigner: TIntegerField;
    tbl_dwxxbBDEDesigner2: TIntegerField;
    tbl_dwxxbBDEDesigner3: TStringField;
    tbl_dwxxbBDEDesigner4: TStringField;
    tbl_spxxbBDEDesigner: TIntegerField;
    tbl_spxxbBDEDesigner2: TStringField;
    tbl_spxxbBDEDesigner3: TStringField;
    tbl_spxxbBDEDesigner4: TStringField;
    tbl_fjhtqkbField: TFloatField;
    tbl_fjkpqkbField: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure suiComboBox1Change(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure suiCheckBox1Click(Sender: TObject);
    procedure suiCheckBox2Click(Sender: TObject);
    procedure suiComboBox2Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnPrintClick(Sender: TObject);
    procedure frReport1GetValue(const ParName: String;
      var ParValue: Variant);
    procedure suiCheckBox3Click(Sender: TObject);
    procedure suiCheckBox4Click(Sender: TObject);
    procedure suiCheckBox5Click(Sender: TObject);
    procedure tbl_fjhtqkbCalcFields(DataSet: TDataSet);
    procedure tbl_fjkpqkbCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmZmLocate: TFrmZmLocate;
  SelectSfNo,SelectDwNo : Integer ;
  SelectSfMc,SelectDwMc : string ;
  OldDataSource : TDataSource ;
  OldFieldName : String;

implementation

uses PubUnit, Preview;

{$R *.dfm}

procedure TFrmZmLocate.FormCreate(Sender: TObject);
begin
  dtp1.Date := Date();
  dtp2.Date := Date();
  dtp3.Date := Date();
  dtp4.Date := Date();
  dtp5.Date := Date();
  dtp6.Date := Date();
  ChangeInterface(Self, suiForm1);
{  with DataModule1 do
  begin
    qry_Jbhtqkb.Close ;
    qry_Jbhtqkb.SQL.Clear ;
    qry_Jbhtqkb.SQL.Add('Select * from 基本合同信息表 where 合同编号='''+'***''');
    qry_Jbhtqkb.Open ;
    tbl_Fjhtqkb.Close ;
    tbl_Kpqkb.Close ;
    tbl_Fhqkb.Close ;
    tbl_Skqkb.Close ;
    tbl_Fjkpqkb.Close ;
    OldDataSource := tbl_dwxxb.MasterSource ;
    OldFieldName := tbl_dwxxb.MasterFields ;
    tbl_dwxxb.Close ;
    tbl_dwxxb.MasterSource := nil ;
    tbl_dwxxb.MasterFields := '';
    tbl_dwxxb.Open ;
  end;}
end;

procedure TFrmZmLocate.FormShow(Sender: TObject);
begin
  suiPageControl1.ActivePageIndex := 0 ;
  SelectSfNo := -1 ;
  SelectSfMc := '未选择';
  SelectDwNo := -1 ;
  SelectDwMc := '未选择';
  suiComboBox1.Items.Clear ;
  suiComboBox1.Items.Add('<All>');
  with qry1 do
  begin
    Close ;
    SQL.Clear ;
    SQL.Add('Select * from 省级信息表'); 
    Open ;
    if RecordCount > 0 then
    begin
      First ;
      while not Eof do
      begin
        suiComboBox1.Items.Add(Trim(FieldByName('省级编号').AsString)+'-'+
                               Trim(FieldByName('省级名称').AsString));
        Next ;
      end;
    end;
  end;
end;

procedure TFrmZmLocate.suiComboBox1Change(Sender: TObject);
var Str, MyParam : String;
    Pos : Integer ;
begin
  SelectDwNo := -1 ;
  SelectDwMc := '未选择';
  Str := Trim(suiComboBox1.Text);
  Pos := AnsiPos('-',Str);
  if Pos <=0 then
  begin
    SelectSfNo := -1 ;
    SelectSfMc := '未选择';
  end
  else
  begin
    SelectSfNo := StrToInt(Copy(Str,1,Pos-1));
    SelectSfMc := Copy(Str,Pos+1,Length(Str)-Pos);
  end;
  suiComboBox2.Items.Clear ;
  suiComboBox2.Items.Add('<All>');
  with qry2 do
  begin
    Close ;
    SQL.Clear ;
    if SelectSfNo > 0 then
    begin
      SQL.Add('Select * from 单位信息表 where 省级编号=:省级编号');
      ParamByName('省级编号').AsString := IntToStr(SelectSfNo) ;
    end
    else
      SQL.Add('Select * from 单位信息表');
    Open ;
    if RecordCount > 0 then
    begin
      First ;
      while not Eof do
      begin
        suiComboBox2.Items.Add(Trim(FieldByName('单位编号').AsString)+'-'+
                               Trim(FieldByName('单位名称').AsString));
        Next ;
      end ;
    end;
  end;
end;

procedure TFrmZmLocate.suiButton1Click(Sender: TObject);
var SQLSyx,SubSQLSyx : String;
begin
  tbl_sjxxb.Active := true ;
  tbl_dwxxb.Active := true ;
  tbl_spxxb.Active := True ;
  tbl_fjhtqkb.Active := False ;
  tbl_fhqkb.Active := False ;
  tbl_kpqkb.Active := False ;
  tbl_fjkpqkb.Active := False ;
  tbl_skqkb.Active := False ;
{  with StoredProc_jbqkb do
  begin
    Active := False ;
    if P_SelectSfNo <= 0 then
       ParamByName('@sjbh').AsString := ''
    else
       ParamByName('@sjbh').AsString := IntToStr(P_SelectSfNo);
    if P_SelectDwNo <= 0 then
       ParamByName('@dwbh').AsString := ''
    else