uzycl.pas

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

unit uZYCL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  wwdbdatetimepicker, wwdblook, StdCtrls, Mask, DBCtrls, ExtCtrls, Db,
  DBTables;

type
  TfrmZYCL = class(TForm)
    Panel1: TPanel;
    btnNew: TButton;
    Button2: TButton;
    btnSave: TButton;
    souFFFS: TDataSource;
    qryFFFS: TQuery;
    souDJQK: TDataSource;
    qryDJQK: TQuery;
    souFFZQ: TDataSource;
    qryFFZQ: TQuery;
    souFFJG: TDataSource;
    qryFFJG: TQuery;
    souHB: TDataSource;
    qryHB: TQuery;
    souRYXX: TDataSource;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    edtZH: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit10: TDBEdit;
    cmbHB: TwwDBLookupCombo;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdit1: TDBEdit;
    edtSFZH: TDBEdit;
    cmbFFFS: TwwDBLookupCombo;
    cmbDJQK: TwwDBLookupCombo;
    cmbFFJGID: TwwDBLookupCombo;
    edtBZJE: TDBEdit;
    cmbFFZQ: TwwDBLookupCombo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    cmbFFFS_Edit: TwwDBLookupCombo;
    cmbHB_Edit: TwwDBLookupCombo;
    cmbFFJGID_Edit: TwwDBLookupCombo;
    cmbDJQK_Edit: TwwDBLookupCombo;
    cmbFFZQ_Edit: TwwDBLookupCombo;
    Label15: TLabel;
    qryRYXX: TQuery;
    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;
    sqlRYXX: TUpdateSQL;
    Label19: TLabel;
    Label21: TLabel;
    btnClose: TButton;
    edtDWDM: TEdit;
    edtDQDM: TEdit;
    edtDQMC: TEdit;
    Label22: TLabel;
    edtSFZH_2: TEdit;
    Label23: TLabel;
    DBEdit2: TDBEdit;
    Label24: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    Label3: TLabel;
    edtZH_2: TEdit;
    Label20: TLabel;
    edtBZJE_2: TEdit;
    Label25: TLabel;
    procedure FormShow(Sender: TObject);
    procedure qryRYXXAfterInsert(DataSet: TDataSet);
    procedure qryRYXXAfterPost(DataSet: TDataSet);
    procedure qryRYXXBeforePost(DataSet: TDataSet);
    procedure qryDQFLAfterInsert(DataSet: TDataSet);
    procedure qryDQFLAfterPost(DataSet: TDataSet);
    procedure btnNewClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure edtDQDMExit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure qryRYXXAfterCancel(DataSet: TDataSet);
  private
    { Private declarations }
    procedure myComboEnter(Sender: TObject);
    procedure myComboEditExit(Sender: TOBject);
  public
    { Public declarations }

  end;

var
  frmZYCL: TfrmZYCL;

implementation

uses uCommon, dMain;

{$R *.DFM}

procedure TfrmZYCL.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 TfrmZYCL.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 TfrmZYCL.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 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 TfrmZYCL.qryRYXXAfterInsert(DataSet: TDataSet);
begin
  //取得唯一ID
  TQuery(DataSet).FieldByName('RYID_FF').AsString :=
    gfGetNumber('tFF_RYXX');
  //默认人员状态为正常发放
  TQuery(DataSet).FieldByName('RYZT').AsInteger := 1;

  TQuery(DataSet).FieldByName('LJFFJE').Value := 0;
  TQuery(DataSet).FieldByName('HDJE').Value := 0;

  TQuery(DataSet).FieldByName('JBR').AsString := gsUserName;
  TQuery(DataSet).FieldByName('JBRQ').AsString := DateToStr(Now);
  TQuery(DataSet).FieldByName('FFZQ').AsInteger := 1;

end;

procedure TfrmZYCL.qryRYXXAfterPost(DataSet: TDataSet);
begin
  TQuery(DataSet).ApplyUpdates;
  TQuery(DataSet).CommitUpdates;
  TQuery(DataSet).Close;
  TQuery(DataSet).Open;
  edtSFZH_2.Text := '';
  edtBZJE_2.Text := '';
  edtZH_2.Text := '';
end;

procedure TfrmZYCL.qryRYXXBeforePost(DataSet: TDataSet);
var
  strShow: string;
begin

  //调试用

  if TQuery(DataSet).FieldByName('XM').isNULL then
  begin
    gfShowError('请输入姓名');
    Abort;