📄 winyuangong.pas
字号:
Self.Label3.TabIndex := 3;
Self.Label3.Text := '性 别：';
//
// Label2
//
Self.Label2.Location := System.Drawing.Point.Create(8, 88);
Self.Label2.Name := 'Label2';
Self.Label2.TabIndex := 2;
Self.Label2.Text := '部 门：';
//
// Label1
//
Self.Label1.Location := System.Drawing.Point.Create(8, 64);
Self.Label1.Name := 'Label1';
Self.Label1.Size := System.Drawing.Size.Create(96, 16);
Self.Label1.TabIndex := 1;
Self.Label1.Text := '员工编号：';
//
// ToolBar1
//
Self.ToolBar1.Buttons.AddRange(TSystem_Windows_Forms_ToolBarButtonArray.Create(Self.Tbnadd,
Self.tbnedit, Self.tbnsave, Self.tbncut, Self.tbnexit));
Self.ToolBar1.DropDownArrows := True;
Self.ToolBar1.ImageList := Self.ImageList1;
Self.ToolBar1.Location := System.Drawing.Point.Create(0, 0);
Self.ToolBar1.Name := 'ToolBar1';
Self.ToolBar1.ShowToolTips := True;
Self.ToolBar1.Size := System.Drawing.Size.Create(472, 41);
Self.ToolBar1.TabIndex := 0;
Include(Self.ToolBar1.ButtonClick, Self.ToolBar1_ButtonClick);
//
// Tbnadd
//
Self.Tbnadd.ImageIndex := 11;
Self.Tbnadd.Tag := '1';
Self.Tbnadd.Text := '新建';
Self.Tbnadd.ToolTipText := '新建';
//
// tbnedit
//
Self.tbnedit.ImageIndex := 2;
Self.tbnedit.Tag := '2';
Self.tbnedit.Text := '编辑';
Self.tbnedit.ToolTipText := '编辑';
//
// tbnsave
//
Self.tbnsave.ImageIndex := 5;
Self.tbnsave.Tag := '3';
Self.tbnsave.Text := '保存';
Self.tbnsave.ToolTipText := '保存';
//
// tbncut
//
Self.tbncut.ImageIndex := 7;
Self.tbncut.Tag := '4';
Self.tbncut.Text := '删除';
Self.tbncut.ToolTipText := '删除';
//
// tbnexit
//
Self.tbnexit.ImageIndex := 1;
Self.tbnexit.Tag := '5';
Self.tbnexit.Text := '取消';
Self.tbnexit.ToolTipText := '取消';
//
// ImageList1
//
Self.ImageList1.ImageSize := System.Drawing.Size.Create(16, 16);
Self.ImageList1.ImageStream := (System.Windows.Forms.ImageListStreamer(resources.GetObject('ImageList1.ImageStream')));
Self.ImageList1.TransparentColor := System.Drawing.Color.Transparent;
//
// TabPage2
//
Self.TabPage2.Controls.Add(Self.Label20);
Self.TabPage2.Controls.Add(Self.CheckBox1);
Self.TabPage2.Controls.Add(Self.DataGrid1);
Self.TabPage2.Controls.Add(Self.Butfind);
Self.TabPage2.Controls.Add(Self.textadressF);
Self.TabPage2.Controls.Add(Self.Label11);
Self.TabPage2.Controls.Add(Self.TexttelF);
Self.TabPage2.Controls.Add(Self.DateTimePicker2F);
Self.TabPage2.Controls.Add(Self.cmbpostF);
Self.TabPage2.Controls.Add(Self.cmbxueliF);
Self.TabPage2.Controls.Add(Self.cmbsexF);
Self.TabPage2.Controls.Add(Self.cmbdepartF);
Self.TabPage2.Controls.Add(Self.textnameF);
Self.TabPage2.Controls.Add(Self.TextbianhaoF);
Self.TabPage2.Controls.Add(Self.Label12);
Self.TabPage2.Controls.Add(Self.Label13);
Self.TabPage2.Controls.Add(Self.Label14);
Self.TabPage2.Controls.Add(Self.Label15);
Self.TabPage2.Controls.Add(Self.Label16);
Self.TabPage2.Controls.Add(Self.Label17);
Self.TabPage2.Controls.Add(Self.Label18);
Self.TabPage2.Controls.Add(Self.Label19);
Self.TabPage2.Location := System.Drawing.Point.Create(4, 21);
Self.TabPage2.Name := 'TabPage2';
Self.TabPage2.Size := System.Drawing.Size.Create(472, 327);
Self.TabPage2.TabIndex := 1;
Self.TabPage2.Text := '信息查询';
//
// Label20
//
Self.Label20.Location := System.Drawing.Point.Create(248, 80);
Self.Label20.Name := 'Label20';
Self.Label20.Size := System.Drawing.Size.Create(72, 16);
Self.Label20.TabIndex := 40;
Self.Label20.Text := '出生年份：';
//
// CheckBox1
//
Self.CheckBox1.Location := System.Drawing.Point.Create(232, 72);
Self.CheckBox1.Name := 'CheckBox1';
Self.CheckBox1.Size := System.Drawing.Size.Create(32, 24);
Self.CheckBox1.TabIndex := 39;
Self.CheckBox1.Text := ' ';
Include(Self.CheckBox1.CheckedChanged, Self.CheckBox1_CheckedChanged);
//
// DataGrid1
//
Self.DataGrid1.AllowSorting := False;
Self.DataGrid1.Anchor := (System.Windows.Forms.AnchorStyles((((System.Windows.Forms.AnchorStyles.Top
or System.Windows.Forms.AnchorStyles.Bottom) or System.Windows.Forms.AnchorStyles.Left)
or System.Windows.Forms.AnchorStyles.Right)));
Self.DataGrid1.DataMember := '';
Self.DataGrid1.HeaderForeColor := System.Drawing.SystemColors.ControlText;
Self.DataGrid1.Location := System.Drawing.Point.Create(8, 176);
Self.DataGrid1.Name := 'DataGrid1';
Self.DataGrid1.ReadOnly := True;
Self.DataGrid1.Size := System.Drawing.Size.Create(456, 136);
Self.DataGrid1.TabIndex := 38;
Include(Self.DataGrid1.CurrentCellChanged, Self.DataGrid1_CurrentCellChanged);
//
// Butfind
//
Self.Butfind.Location := System.Drawing.Point.Create(320, 144);
Self.Butfind.Name := 'Butfind';
Self.Butfind.Size := System.Drawing.Size.Create(120, 23);
Self.Butfind.TabIndex := 37;
Self.Butfind.Text := '数据查询';
Include(Self.Butfind.Click, Self.Butfind_Click);
//
// textadressF
//
Self.textadressF.Location := System.Drawing.Point.Create(80, 144);
Self.textadressF.Name := 'textadressF';
Self.textadressF.Size := System.Drawing.Size.Create(184, 21);
Self.textadressF.TabIndex := 19;
Self.textadressF.Text := 'TextBox4';
//
// Label11
//
Self.Label11.Location := System.Drawing.Point.Create(16, 144);
Self.Label11.Name := 'Label11';
Self.Label11.TabIndex := 35;
Self.Label11.Text := '住 址：';
//
// TexttelF
//
Self.TexttelF.Location := System.Drawing.Point.Create(320, 112);
Self.TexttelF.Name := 'TexttelF';
Self.TexttelF.Size := System.Drawing.Size.Create(128, 21);
Self.TexttelF.TabIndex := 18;
Self.TexttelF.Text := 'TextBox3';
//
// DateTimePicker2F
//
Self.DateTimePicker2F.CustomFormat := 'yyyy';
Self.DateTimePicker2F.Enabled := False;
Self.DateTimePicker2F.Format := System.Windows.Forms.DateTimePickerFormat.Custom;
Self.DateTimePicker2F.Location := System.Drawing.Point.Create(320, 80);
Self.DateTimePicker2F.Name := 'DateTimePicker2F';
Self.DateTimePicker2F.Size := System.Drawing.Size.Create(128, 21);
Self.DateTimePicker2F.TabIndex := 16;
//
// cmbpostF
//
Self.cmbpostF.Location := System.Drawing.Point.Create(320, 48);
Self.cmbpostF.Name := 'cmbpostF';
Self.cmbpostF.Size := System.Drawing.Size.Create(128, 20);
Self.cmbpostF.TabIndex := 14;
Self.cmbpostF.Text := 'ComboBox4';
//
// cmbxueliF
//
Self.cmbxueliF.Location := System.Drawing.Point.Create(80, 112);
Self.cmbxueliF.Name := 'cmbxueliF';
Self.cmbxueliF.Size := System.Drawing.Size.Create(112, 20);
Self.cmbxueliF.TabIndex := 17;
Self.cmbxueliF.Text := 'ComboBox3';
//
// cmbsexF
//
Self.cmbsexF.Items.AddRange(TSystem_ObjectArray.Create('', '男', '女'));
Self.cmbsexF.Location := System.Drawing.Point.Create(80, 80);
Self.cmbsexF.Name := 'cmbsexF';
Self.cmbsexF.Size := System.Drawing.Size.Create(112, 20);
Self.cmbsexF.TabIndex := 15;
//
// cmbdepartF
//
Self.cmbdepartF.Location := System.Drawing.Point.Create(80, 48);
Self.cmbdepartF.Name := 'cmbdepartF';
Self.cmbdepartF.Size := System.Drawing.Size.Create(112, 20);
Self.cmbdepartF.TabIndex := 13;
Self.cmbdepartF.Text := 'ComboBox1';
//
// textnameF
//
Self.textnameF.Location := System.Drawing.Point.Create(320, 16);
Self.textnameF.Name := 'textnameF';
Self.textnameF.Size := System.Drawing.Size.Create(128, 21);
Self.textnameF.TabIndex := 12;
Self.textnameF.Text := 'TextBox2';
Include(Self.textnameF.TextChanged, Self.textnameF_TextChanged);
//
// TextbianhaoF
//
Self.TextbianhaoF.Location := System.Drawing.Point.Create(80, 16);
Self.TextbianhaoF.Name := 'TextbianhaoF';
Self.TextbianhaoF.Size := System.Drawing.Size.Create(112, 21);
Self.TextbianhaoF.TabIndex := 11;
Self.TextbianhaoF.Text := '';
//
// Label12
//
Self.Label12.Location := System.Drawing.Point.Create(248, 112);
Self.Label12.Name := 'Label12';
Self.Label12.TabIndex := 26;
Self.Label12.Text := '联系电话：';
//
// Label13
//
Self.Label13.Location := System.Drawing.Point.Create(248, 80);
Self.Label13.Name := 'Label13';
Self.Label13.TabIndex := 25;
Self.Label13.Text := '出生年份：';
//
// Label14
//
Self.Label14.Location := System.Drawing.Point.Create(248, 48);
Self.Label14.Name := 'Label14';
Self.Label14.TabIndex := 24;
Self.Label14.Text := '职 务：';
//
// Label15
//
Self.Label15.Location := System.Drawing.Point.Create(248, 16);
Self.Label15.Name := 'Label15';
Self.Label15.TabIndex := 23;
Self.Label15.Text := '姓 名：';
//
// Label16
//
Self.Label16.Location := System.Drawing.Point.Create(16, 112);
Self.Label16.Name := 'Label16';
Self.Label16.TabIndex := 22;
Self.Label16.Text := '学 历：';
//
// Label17
//
Self.Label17.Location := System.Drawing.Point.Create(16, 80);
Self.Label17.Name := 'Label17';
Self.Label17.TabIndex := 21;
Self.Label17.Text := '性 别：';
//
// Label18
//
Self.Label18.Location := System.Drawing.Point.Create(16, 48);
Self.Label18.Name := 'Label18';
Self.Label18.TabIndex := 20;
Self.Label18.Text := '部 门：';
//
// Label19
//
Self.Label19.Location := System.Drawing.Point.Create(16, 24);
Self.Label19.Name := 'Label19';
Self.Label19.Size := System.Drawing.Size.Create(96, 16);
Self.Label19.TabIndex := 19;
Self.Label19.Text := '员工编号：';
//
// TWinYuanGong
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
Self.ClientSize := System.Drawing.Size.Create(472, 357);
Self.Controls.Add(Self.tabcontrol1);
Self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.FixedSingle;
Self.Icon := (System.Drawing.Icon(resources.GetObject('$this.Icon')));
Self.Name := 'TWinYuanGong';
Self.Text := '员工信息维护';
Include(Self.KeyDown, Self.TWinYuanGong_KeyDown);
Include(Self.KeyPress, Self.TWinYuanGong_KeyPress);
Include(Self.Load, Self.TWinYuanGong_Load);
Include(Self.Closed, Self.TWinYuanGong_Closed);
Self.tabcontrol1.ResumeLayout(False);
Self.TabPage1.ResumeLayout(False);
Self.TabPage2.ResumeLayout(False);
(System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
Self.ResumeLayout(False);
end;
{$ENDREGION}
procedure TWinYuanGong.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinYuanGong.Create;
begin
inherited Create;
//
// Required for Windows Form Designer support
//
InitializeComponent;
//
// TODO: Add any constructor code after InitializeComponent call
//
end;
procedure TWinYuanGong.textnameF_TextChanged(sender: System.Object; e: System.EventArgs);
begin
end;
//****************************************************************
//* 窗体加载 [Load]
//*
//* [参数]
//* 1：系统参数
//* 2：系统参数
//* [返回]
//* 无
//****************************************************************
procedure TWinYuanGong.TWinYuanGong_Load(sender: System.Object; e: System.EventArgs);
var
w_sql :string;
begin
try
clsmain.WinYuanGongshowfla:=true;
item_clear();
RefreshEnabled(false,false);
ToolBar1.Buttons[2].Enabled := false; //保存按钮不可用
w_sql:='select 部门名称 from 部门表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbdepart,true);
w_sql:='select 学历名称 from 学历表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbxueli,true);
w_sql:='select 职务名称 from 职务表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbpost,true);
w_sql:='select 部门名称 from 部门表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbdepartF,true);
w_sql:='select 学历名称 from 学历表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbxueliF,true);
w_sql:='select 职务名称 from 职务表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbpostF,true);
except
on ex:exception do
begin
messagebox.Show('TWinYuanGong.TWinYuanGong_Load:(' + ex.Message + ')','考勤管理系统');
end;
end;
end;
//****************************************************************
//* 窗体卸载 [Load]
//*
//* [参数]
//* 1：系统参数
//* 2：系统参数
//* [返回]
//* 无
//****************************************************************
procedure TWinYuanGong.TWinYuanGong_Closed(sender: System.Object; e: System.EventArgs);
begin
try
clsmain.WinYuanGongshowfla:=false;
except
on ex:exception do
begin
messagebox.Show('TWinYuanGong.TWinYuanGong_closed:(' + ex.Message + ')','考勤管理系统');
end;
end;
end;
//****************************************************************
//* TWinUser_KeyDown
//*
//* [参数]
//* 1：系统参数
//* 2：系统参数
//* [返回]
//* 无
//****************************************************************
procedure TWinYuanGong.TWinYuanGong_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -