unit grzl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ComCtrls,
  HumanResourceControls, ExtCtrls, ExtDlgs;

type
  TfrmGrzl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBoxLh: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    GroupBox6: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    GroupBox7: TGroupBox;
    Label10: TLabel;
    Label13: TLabel;
    Label7: TLabel;
    GroupBox8: TGroupBox;
    Label15: TLabel;
    Label14: TLabel;
    DBEdtGh: TDBEdit;
    DBEdtXm: TDBEdit;
    DBEdtCym: TDBEdit;
    DBDateTimePicker1: TDBDateTimePicker;
    DBEdtJg: TDBEdit;
    DBEdtSfzh: TDBEdit;
    DBEdtJtzz: TDBEdit;
    DBDTPCjgzsj: TDBDateTimePicker;
    DBDTPJbdwsj: TDBDateTimePicker;
    GroupBoxLb: TGroupBox;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    btnExit: TButton;
    BtnGhms: TButton;
    GroupBox9: TGroupBox;
    GroupBox5: TGroupBox;
    DBImage1: TDBImage;
    BtnGhzp: TButton;
    BtnJl: TButton;
    BtnDa: TButton;
    BtnJz: TButton;
    BtnPx: TButton;
    BtnZc: TButton;
    DBLookupCmbXb: TDBLookupComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupCmbXl: TDBLookupComboBox;
    DBLookupCmbJszc: TDBLookupComboBox;
    DBLookupCmbBm: TDBLookupComboBox;
    DBLookupCmbGw: TDBLookupComboBox;
    OpenPictureDialog: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure BtnGhmsClick(Sender: TObject);
    procedure BtnGhzpClick(Sender: TObject);
    procedure BtnJlClick(Sender: TObject);
    procedure DBGrid2TitleClick(Column: TColumn);
    procedure BtnDaClick(Sender: TObject);
    procedure BtnJzClick(Sender: TObject);
    procedure BtnPxClick(Sender: TObject);
    procedure BtnZcClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGrzl: TfrmGrzl;

implementation
uses
  dm,ADODB, bjjl, Bjda, bjjz, bjpx, bjzc;

{$R *.dfm}

procedure TfrmGrzl.FormCreate(Sender: TObject);
begin
  //使輸入模式和表格顯示的GroupBox大小和位置一樣，使用戶界面友好
  //并顯示其中的一個
  GroupBoxLh.Visible := true;
  GroupBoxLb.Top := GroupBoxLh.Top ;
  GroupBoxLb.Left := GroupBoxLh.Left;
  GroupBoxLb.Height := GroupBoxLh.Height ;
  GroupBoxLb.Width:= GroupBoxLh.Width ;
  GroupBoxLb.Visible := false;
end;

procedure TfrmGrzl.BtnGhmsClick(Sender: TObject);
begin
  if trim(BtnGhms.Caption) = '表格顯示' then
  begin
    BtnGhms.Caption := '輸入模式';
    GroupBoxLh.Visible := false;
    GroupBoxLb.Visible := true;
  end
  else
  begin
    BtnGhms.Caption := '表格顯示';
    GroupBoxLh.Visible := true;
    GroupBoxLb.Visible := false;
  end;
end;

procedure TfrmGrzl.BtnGhzpClick(Sender: TObject);
begin
  if OpenPictureDialog.Execute then
  begin
    DBImage1.DataSource.DataSet.Edit;
    DBImage1.Picture.LoadFromFile (OpenPictureDialog.FileName) ;
  end;
end;

procedure TfrmGrzl.BtnJlClick(Sender: TObject);
begin
  frmBjjl := TfrmBjjl.create(self);
  FrmBjjl.Gh := DataModule1.ADODataSetJbzl.FieldValues['JBZL_GH'];
  FrmBjjl.ShowModal ;
end;

procedure TfrmGrzl.DBGrid2TitleClick(Column: TColumn);
var
  tempSortStr,FN:string;
begin
  tempSortStr := DataModule1.ADODataSetJbzl.Sort ;//保存原來的排序規則
  FN := Column.FieldName ;  //單擊的列字段名
  //以下根據單擊的字段名得到排序的字段
  if trim(FN) = 'JBZL_XBMC' then
  begin
    FN := 'JBZL_XB';//單擊性別則按性別代碼排序
  end;

  if trim(FN) = 'JBZL_BMMC' then
  begin
    FN := 'JBZL_BMDM';    //單擊部門則按部門代碼排序
  end;

  if trim(FN) = 'JBZL_GWMC' then
  begin
    FN := 'JBZL_GWDM';    //單擊部門則按部門代碼排序
  end;

  if trim(FN) = 'JBZL_HYZK' then
  begin
    FN := 'JBZL_HYZKDM';    //單擊婚姻狀況則按婚姻狀況代碼排序
  end;

  if trim(FN) = 'JBZL_XL' then
  begin
    FN := 'JBZL_XLDM';    //單擊學歷則按學歷代碼排序
  end;

  if trim(FN) = 'JBZL_JSZC' then
  begin
    FN := 'JBZL_JSZCDM';    //單擊技術職稱則按技術職稱代碼排序
  end;

  if tempSortStr = (FN + ' ASC') then //已經是該字段按升序排列
  begin
    DataModule1.ADODataSetJbzl.Sort := FN + ' DESC';//改為按該字段降序排列
  end
  else                    //不是該字段按升序排序
  begin
    DataModule1.ADODataSetJbzl.Sort := FN + ' ASC';//改為按該字段按升序排列
  end;
end;

procedure TfrmGrzl.BtnDaClick(Sender: TObject);
begin
  frmBjda := TfrmBjda.create(self);
  FrmBjda.Gh := DataModule1.ADODataSetJbzl.FieldValues['JBZL_GH'];
  FrmBjda.ShowModal ;
end;

procedure TfrmGrzl.BtnJzClick(Sender: TObject);
begin
  frmBjjz := TfrmBjjz.create(self);
  FrmBjjz.Gh := DataModule1.ADODataSetJbzl.FieldValues['JBZL_GH'];
  FrmBjjz.ShowModal ;
end;

procedure TfrmGrzl.BtnPxClick(Sender: TObject);
begin
  frmBjpx := TfrmBjpx.create(self);
  FrmBjpx.Gh := DataModule1.ADODataSetJbzl.FieldValues['JBZL_GH'];
  FrmBjpx.ShowModal ;
end;

procedure TfrmGrzl.BtnZcClick(Sender: TObject);
begin
  frmBjzc := TfrmBjzc.create(self);
  FrmBjzc.Gh := DataModule1.ADODataSetJbzl.FieldValues['JBZL_GH'];
  FrmBjzc.ShowModal ;
end;

procedure TfrmGrzl.btnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmGrzl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree ;
end;

end.