grzl.pas

酒店资源管理的软件

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.