u_regform.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_RegForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, DB, ADODB, Buttons, ExtCtrls, ToolWin, ComCtrls, Grids,
  DBGridEh, Tabs, StdCtrls, Mask, DBCtrls;

type
  TF_RegForm = class(TF_base)
    Q_mainFormname: TStringField;
    Q_mainCaption: TStringField;
    Q_mainFormstyle: TStringField;
    Q_mainWidth: TIntegerField;
    Q_mainHeight: TIntegerField;
    Q_mainFormLeft: TIntegerField;
    Q_mainFormTop: TIntegerField;
    Q_mainMain_table: TStringField;
    Q_mainDetail_table: TStringField;
    Q_mainKey_Field: TStringField;
    Q_mainSID: TGuidField;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBComboBox1: TDBComboBox;
    Panel3: TPanel;
    DBGridEh1: TDBGridEh;
    Label11: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DS_mainStateChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Q_mainBeforePost(DataSet: TDataSet);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_RegForm: TF_RegForm;

implementation

uses U_data;

{$R *.dfm}

procedure TF_RegForm.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Close;
end;



procedure TF_RegForm.FormCreate(Sender: TObject);
begin
  inherited;
  OneTable_flag := TRUE;
  MAIN_TABLE := 'TB_Form';
 // KEY_FIELD:='ProgID';
end;

procedure TF_RegForm.DS_mainStateChange(Sender: TObject);
begin
  inherited;
  if Q_MAIN.STATE in [DSEDIT, DSINSERT] then
    DBEDIT1.SETFOCUS;
  DBGridEh1.Enabled := not (Q_MAIN.STATE in [DSEDIT, DSINSERT]);
end;

procedure TF_RegForm.FormShow(Sender: TObject);
begin
  inherited;
  DBGridEh1.ReadOnly := not is_edit;
  Q_main.Open;


end;

procedure TF_RegForm.Q_mainBeforePost(DataSet: TDataSet);
begin
  SQL_S := 'Select * from TB_FORM where Formname=''' + Q_main.fieldbyname('formname').AsString + '''';
  SQL_OPEN(sql_s);
  if Dm.Q_TempA.RecordCount > 0 then
  begin
    MessageDlg('此窗体已注册，请确认输入的窗体名是否重复！', mtWarning, [mbOK], 0);
    Abort;
  end;
  inherited;

end;

procedure TF_RegForm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  inherited;
  MYDBGridEHDrawColumnCelL(DBGRIDEH1, Rect, Datacol, Column, State);
end;

procedure TF_RegForm.BitBtn2Click(Sender: TObject);
begin
  inherited;
 SQL_S := 'select * from TB_Form where Caption like ''%' + Trim(edit1.Text) + '%''';
  SQL_CHANGE(Q_MAIN, SQL_S);
end;

initialization
  RegisterClass(TF_RegForm);

end.