ufkxxgz.~pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

unit uFKXXGZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Grids, DBGrids, DBTables, Db, Mask, DBCtrls,
  wwdbdatetimepicker, wwdblook, ComCtrls, Wwdbigrd, Wwdbgrid;

type
  TfrmFKXXGZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button2: TButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Button3: TButton;
    souRYFKXX: TDataSource;
    qryRYFKXX: TQuery;
    souRYXX: TDataSource;
    qryRYXX: TQuery;
    sqlRYXX: TUpdateSQL;
    qryRYFKXXRYID_FF: TStringField;
    qryRYFKXXFFYF: TDateTimeField;
    qryRYFKXXFKRQ: TDateTimeField;
    qryRYFKXXFFBZ: TFloatField;
    qryRYFKXXXM: TStringField;
    qryRYFKXXSFZH: TStringField;
    qryRYFKXXZH: TStringField;
    qryRYFKXXKHH: TStringField;
    qryRYFKXXHRDD: TStringField;
    qryRYFKXXYZBM: TStringField;
    qryRYFKXXDZ: TStringField;
    qryRYFKXXFFJE: TFloatField;
    qryRYFKXXDQDM: TStringField;
    qryRYFKXXDQMC: TStringField;
    qryRYFKXXDWDM: TStringField;
    qryRYFKXXCWBZ: TFloatField;
    qryRYFKXXBZ: TStringField;
    qryRYFKXXFFJGID: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label15: TLabel;
    DBEdit15: TDBEdit;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    Bevel1: TBevel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label17: TLabel;
    Label11: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    DBEdit4: TDBEdit;
    edtSFZH: TDBEdit;
    cmbFFFS: TwwDBLookupCombo;
    cmbDJQK: TwwDBLookupCombo;
    cmbFFJGID: TwwDBLookupCombo;
    edtBZJE: TDBEdit;
    cmbFFZQ: TwwDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    cmbFFFS_Edit: TwwDBLookupCombo;
    cmbDJQK_Edit: TwwDBLookupCombo;
    cmbFFZQ_Edit: TwwDBLookupCombo;
    cmbFFJGID_Edit: TwwDBLookupCombo;
    DBNavigator1: TDBNavigator;
    souHB: TDataSource;
    qryHB: TQuery;
    souFFFS: TDataSource;
    qryFFFS: TQuery;
    souDJQK: TDataSource;
    qryDJQK: TQuery;
    souFFZQ: TDataSource;
    qryFFZQ: TQuery;
    souFFJG: TDataSource;
    qryFFJG: TQuery;
    edtResult: TEdit;
    Label29: TLabel;
    souDQXX: TDataSource;
    qryDQXX: TQuery;
    sqlDQXX: TUpdateSQL;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    edtZH: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    cmbHB: TwwDBLookupCombo;
    cmbHB_Edit: TwwDBLookupCombo;
    DBEdit11: TDBEdit;
    edtZH_2: TEdit;
    GroupBox3: TGroupBox;
    Label27: TLabel;
    Label28: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    Label18: TLabel;
    DBEdit7: TDBEdit;
    Label20: TLabel;
    Button1: TButton;
    qryRYXXRYID_FF: TStringField;
    qryRYXXDWID_FF: TStringField;
    qryRYXXSSDWID: TStringField;
    qryRYXXRYID: TStringField;
    qryRYXXXM: TStringField;
    qryRYXXSFZH: TStringField;
    qryRYXXHDJE: TFloatField;
    qryRYXXFFFS: TFloatField;
    qryRYXXFFJGID: TStringField;
    qryRYXXDJQK: TFloatField;
    qryRYXXZH: TStringField;
    qryRYXXKHH: TStringField;
    qryRYXXHB: TFloatField;
    qryRYXXSKR: TStringField;
    qryRYXXHRDD: TStringField;
    qryRYXXYZBM: TStringField;
    qryRYXXDZ: TStringField;
    qryRYXXFFJE: TFloatField;
    qryRYXXLJFFJE: TFloatField;
    qryRYXXFFZQ: TFloatField;
    qryRYXXRYZT: TFloatField;
    qryRYXXKSFFYF: TDateTimeField;
    qryRYXXCSRQ: TDateTimeField;
    qryRYXXTXSJ: TDateTimeField;
    qryRYXXTXLB: TFloatField;
    qryRYXXLXDH: TStringField;
    qryRYXXXM_QS: TStringField;
    qryRYXXSFZH_QS: TStringField;
    qryRYXXGX_QS: TFloatField;
    qryRYXXLXDH_QS: TStringField;
    qryRYXXLXDZ_QS: TStringField;
    qryRYXXYZBM_QS: TStringField;
    qryRYXXYYFWSJ: TFloatField;
    qryRYXXSKFWRQ: TFloatField;
    qryRYXXSKFWSJ: TFloatField;
    qryRYXXBZ: TStringField;
    qryRYXXJBR: TStringField;
    qryRYXXJBRQ: TDateTimeField;
    qryRYXXSHR: TStringField;
    qryRYXXSHRQ: TDateTimeField;
    qryRYXXBZJE: TFloatField;
    qryRYXXSWSJ: TDateTimeField;
    qryRYXXXYFFJE: TCurrencyField;
    cmbXX: TComboBox;
    edtXX: TEdit;
    btnFind: TButton;
    Button4: TButton;
    Button5: TButton;
    wwDBGrid1: TwwDBGrid;
    qryRYFKXXxgbz: TStringField;
    Query1: TQuery;
    Query2: TQuery;
    Button6: TButton;
    Button7: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure qryRYXXAfterPost(DataSet: TDataSet);
    procedure qryDQXXAfterPost(DataSet: TDataSet);
    procedure qryRYXXBeforePost(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure qryRYXXCalcFields(DataSet: TDataSet);
    procedure souRYXXDataChange(Sender: TObject; Field: TField);
    procedure Button4Click(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure qryRYFKXXCalcFields(DataSet: TDataSet);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont;
      ABrush: TBrush);
    procedure wwDBGrid1TopRowChanged(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
    procedure myComboEnter(Sender: TObject);
    procedure myComboEditExit(Sender: TOBject);
  public
    { Public declarations }
  end;

var
  frmFKXXGZ: TfrmFKXXGZ;

implementation

uses uCommon, dMain;

{$R *.DFM}

procedure TfrmFKXXGZ.FormShow(Sender: TObject);
//设置Combo属性和表现
  procedure SetLookupCombo(ControlName: string);
  begin
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Left :=
      (Self.FindComponent(ControlName) as TwwDBLookupCombo).Left;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Top :=
      (Self.FindComponent(ControlName) as TwwDBLookupCombo).Top;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Height :=
      (Self.FindComponent(ControlName) as TwwDBLookupCombo).Height;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Width :=
      (Self.FindComponent(ControlName) as TwwDBLookupCombo).Width;

    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Visible :=
      False;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).Enabled :=
      False;

    (Self.FindComponent(ControlName) as TwwDBLookupCombo).Visible := True;
    (Self.FindComponent(ControlName) as TwwDBLookupCombo).Enabled := True;

    (Self.FindComponent(ControlName) as TwwDBLookupCombo).OnEnter :=
      myComboEnter;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).OnExit :=
      myComboEditExit;
    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).TabOrder :=
      (Self.FindComponent(ControlName) as TwwDBLookupCombo).TabOrder;

    (Self.FindComponent(ControlName + '_Edit') as TwwDBLookupCombo).DropDownCount
      := 15;
  end;
begin
  if not qryFFFS.Active then qryFFFS.Open;
  if not qryFFZQ.Active then qryFFZQ.Open;
  if not qryDJQK.Active then qryDJQK.Open;
  if not qryDQXX.Active then qryDQXX.Open;
  if not qryHB.Active then qryHB.Open;
  if not qryFFJG.Active then qryFFJG.Open;

  SetLookupCombo('cmbFFFS'); //发放方式
  SetLookupCombo('cmbDJQK'); //定居情况
  SetLookupCombo('cmbHB'); //定居情况
  SetLookupCombo('cmbFFZQ'); //上级单位代码
  SetLookupCombo('cmbFFJGID'); //发放机构

  qryRYXX.Open;
end;

procedure TfrmFKXXGZ.myComboEnter(Sender: TObject);
begin
  //设置Combo Enter事件，
  TwwDBLookupCombo(Self.FindComponent((Sender as TwwDBLookupCombo).Name +
    '_Edit')).Visible := True;
  TwwDBLookupCombo(Self.FindComponent((Sender as TwwDBLookupCombo).Name +
    '_Edit')).Enabled := True;

  TwwDBLookupCombo(Self.FindComponent((Sender as TwwDBLookupCombo).Name +
    '_Edit')).SetFocus;
  TwwDBLookupCombo(Self.FindComponent((Sender as TwwDBLookupCombo).Name +
    '_Edit')).DropDown;
  (Sender as TwwDBLookupCombo).Visible := False;
  (Sender as TwwDBLookupCombo).Enabled := False;
end;

//适用于名字为cmbXXX_Edit之类的控件

procedure TfrmFKXXGZ.myComboEditExit(Sender: TObject);
begin
  //设置Combo Exit事件
  (Sender as TwwDBLookupCombo).Visible := False;
  (Sender as TwwDBLookupCombo).Enabled := False;

  TwwDBLookupCombo(
    Self.FindComponent(
    Copy((Sender as TwwDBLookupCombo).Name, 1, Length((Sender as
    TwwDBLookupCombo).Name) - 5)
    )
    ).Visible := True;

  TwwDBLookupCombo(
    Self.FindComponent(
    Copy((Sender as TwwDBLookupCombo).Name, 1, Length((Sender as
    TwwDBLookupCombo).Name) - 5)
    )
    ).Enabled := True;
end;

procedure TfrmFKXXGZ.Button2Click(Sender: TObject);
var
  bookmark: TBookmark;
begin
  //显示
  if qryRYFKXX.Active then
  begin
    qryRYFKXX.DisableControls;
    bookmark := qryRYFKXX.getBookmark;
    qryRYFKXX.Close;
    //刷新
    qryRYFKXX.Open;
    qryRYFKXX.gotoBookmark(Bookmark);
    qryRYFKXX.FreeBookMark(bookmark);
    qryRYFKXX.EnableControls;
  end
  else
    qryRYFKXX.Open;
  edtResult.Text := IntToStr(qryRYFKXX.RecordCount);
end;

procedure TfrmFKXXGZ.Button3Click(Sender: TObject);