uzzzgtb_xz.pas

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

unit uZZZGTB_XZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TfrmZZZGTB_XZ = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    chkSW: TCheckBox;
    chkCG: TCheckBox;
    procedure chkSWClick(Sender: TObject);
    procedure chkCGClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  frmZZZGTB_XZ: TfrmZZZGTB_XZ;

implementation

{$R *.DFM}

procedure TfrmZZZGTB_XZ.chkSWClick(Sender: TObject);
begin
  chkCG.Checked := not TCheckBox(Sender).Checked;
end;

procedure TfrmZZZGTB_XZ.chkCGClick(Sender: TObject);
begin
  chkSW.Checked := not TCheckBox(Sender).Checked;
end;

procedure TfrmZZZGTB_XZ.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_THICKFRAME or WS_BORDER;
end;


end.