szdmb.pas

酒店资源管理的软件

unit Szdmb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Mask{, ImgButton};

type
  TfrmSzdmb = class(TForm)
    GroupBox1: TGroupBox;
    LstDmb: TListBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BtnOk: TButton;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdtDm: TDBEdit;
    DBEdtMc: TDBEdit;
    DBEdtSm: TDBEdit;
    DBNavigator1: TDBNavigator;
    procedure LstDmbClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSzdmb: TfrmSzdmb;

implementation
uses
  dm;

{$R *.dfm}

procedure TfrmSzdmb.LstDmbClick(Sender: TObject);
begin
  case  LstDmb.ItemIndex of
    0:begin        //设置部门代码
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet  := DataModule1.ADODataSetBmdm ;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'BMDM_DM';
      DBEdtMc.DataField := 'BMDM_MC';
      DBEdtSm.Enabled := True ;
      DBEdtSm.DataField := 'BMDM_SM';
      DBGrid1.Columns[0].FieldName := 'BMDM_DM';
      DBGrid1.Columns[0].Title.Caption := '部门代码';
      DBGrid1.Columns[0].Width := 60;
      DBGrid1.Columns[1].FieldName := 'BMDM_MC';
      DBGrid1.Columns[1].Title.Caption := '部门名称';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].FieldName := 'BMDM_SM';
      DBGrid1.Columns[2].Title.Caption := '说明';
      DBGrid1.Columns[2].Width := 200;
    end;
    1:begin                 //设置岗位代码
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet  := DataModule1.ADODataSetGwdm ;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'GWDM_DM';
      DBEdtMc.DataField := 'GWDM_MC';
      DBEdtSm.Enabled := True ;
      DBEdtSm.DataField := 'GwDM_SM';
      DBGrid1.Columns[0].FieldName := 'GWDM_DM';
      DBGrid1.Columns[0].Title.Caption := '岗位代码';
      DBGrid1.Columns[0].Width := 60;
      DBGrid1.Columns[1].FieldName := 'GWDM_MC';
      DBGrid1.Columns[1].Title.Caption := '岗位名称';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].FieldName := 'GWDM_SM';
      DBGrid1.Columns[2].Title.Caption := '说明';
      DBGrid1.Columns[2].Width := 200;
    end;
    2:begin               //设置婚姻状况代码
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet  := DataModule1.ADODataSetHyzkdm;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'HYZKDM_DM';
      DBEdtMc.DataField := 'HYZKDM_MC';
      DBEdtSm.DataField := '';
      DBEdtSm.Enabled := false ;
      DBGrid1.Columns[0].FieldName := 'HYZKDM_DM';
      DBGrid1.Columns[0].Title.Caption := '代码';
      DBGrid1.Columns[0].Width := 100;
      DBGrid1.Columns[1].FieldName := 'HYZKDM_MC';
      DBGrid1.Columns[1].Title.Caption := '婚姻状况';
      DBGrid1.Columns[1].Width := 100;
    end;
    3:begin   //设置技术职称代码
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet  := DataModule1.ADODataSetJszcdm;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'JSZCDM_DM';
      DBEdtMc.DataField := 'JSZCDM_MC';
      DBEdtSm.Enabled := True ;
      DBEdtSm.DataField := 'JSZCDM_SM';
      DBGrid1.Columns[0].FieldName := 'JSZCDM_DM';
      DBGrid1.Columns[0].Title.Caption := '代码';
      DBGrid1.Columns[0].Width := 60;
      DBGrid1.Columns[1].FieldName := 'JSZCDM_MC';
      DBGrid1.Columns[1].Title.Caption := '技术职称';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].FieldName := 'JSZCDM_SM';
      DBGrid1.Columns[2].Title.Caption := '说明';
      DBGrid1.Columns[2].Width := 200;
    end;
    4:begin
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet  := DataModule1.ADODataSetXbdm ;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'XBDM_DM';
      DBEdtMc.DataField := 'XBDM_MC';
      DBEdtSm.DataField := '';
      DBEdtSm.Enabled := false ;
      DBGrid1.Columns[0].FieldName := 'XBDM_DM';
      DBGrid1.Columns[0].Title.Caption := '代码';
      DBGrid1.Columns[0].Width := 100;
      DBGrid1.Columns[1].FieldName := 'XBDM_MC';
      DBGrid1.Columns[1].Title.Caption := '性别';
      DBGrid1.Columns[1].Width := 100;
    end;
    5:begin
      DBEdtDm.DataField := '';
      DBEdtMc.DataField := '';
      DBEdtSm.DataField := '';
      //下面设置数据源的数据集
      DataModule1.DataSourceSzdmb.DataSet := DataModule1.ADODataSetXldm ;
      //以下绑定数据控制控件和数据集字段
      DBEdtDm.DataField := 'XLDM_DM';
      DBEdtMc.DataField := 'XLDM_MC';
      DBEdtSm.Enabled := True ;
      DBEdtSm.DataField := 'XLDM_SM';
      DBGrid1.Columns[0].FieldName := 'XLDM_DM';
      DBGrid1.Columns[0].Title.Caption := '代码';
      DBGrid1.Columns[0].Width := 60;
      DBGrid1.Columns[1].FieldName := 'XLDM_MC';
      DBGrid1.Columns[1].Title.Caption := '学历';
      DBGrid1.Columns[1].Width := 80;
      DBGrid1.Columns[2].FieldName := 'XLDM_SM';
      DBGrid1.Columns[2].Title.Caption := '说明';
      DBGrid1.Columns[2].Width := 200;
    end;
   end;
end;

procedure TfrmSzdmb.FormShow(Sender: TObject);
begin
  //窗口显示时首先显示一个代码表
  LstDmb.ItemIndex := 0;
  LstDmbClick(self);
end;

procedure TfrmSzdmb.BtnOkClick(Sender: TObject);
begin
  close;
end;

end.