📄 winchuqin.pas
字号:
Self.Label10.Location := System.Drawing.Point.Create(208, 120);
Self.Label10.Name := 'Label10';
Self.Label10.TabIndex := 15;
Self.Label10.Text := '下班时间：';
//
// Label11
//
Self.Label11.Location := System.Drawing.Point.Create(208, 80);
Self.Label11.Name := 'Label11';
Self.Label11.TabIndex := 14;
Self.Label11.Text := '日 期：';
//
// Label12
//
Self.Label12.Location := System.Drawing.Point.Create(208, 48);
Self.Label12.Name := 'Label12';
Self.Label12.TabIndex := 13;
Self.Label12.Text := '姓 名：';
//
// Label7
//
Self.Label7.Location := System.Drawing.Point.Create(8, 192);
Self.Label7.Name := 'Label7';
Self.Label7.Size := System.Drawing.Size.Create(88, 23);
Self.Label7.TabIndex := 12;
Self.Label7.Text := '加班总时间：';
//
// Label6
//
Self.Label6.Location := System.Drawing.Point.Create(16, 160);
Self.Label6.Name := 'Label6';
Self.Label6.TabIndex := 11;
Self.Label6.Text := '请假类型：';
//
// Label5
//
Self.Label5.Location := System.Drawing.Point.Create(16, 120);
Self.Label5.Name := 'Label5';
Self.Label5.TabIndex := 10;
Self.Label5.Text := '上班时间：';
//
// Label2
//
Self.Label2.Location := System.Drawing.Point.Create(16, 88);
Self.Label2.Name := 'Label2';
Self.Label2.TabIndex := 9;
Self.Label2.Text := '部 门：';
//
// Label1
//
Self.Label1.Location := System.Drawing.Point.Create(16, 56);
Self.Label1.Name := 'Label1';
Self.Label1.TabIndex := 8;
Self.Label1.Text := '员工编号：';
//
// ToolBar2
//
Self.ToolBar2.Buttons.AddRange(TSystem_Windows_Forms_ToolBarButtonArray.Create(Self.tbnedit,
Self.tbnsave, Self.ToolBarButton1, Self.ToolBarButton2));
Self.ToolBar2.DropDownArrows := True;
Self.ToolBar2.ImageList := Self.ImageList1;
Self.ToolBar2.Location := System.Drawing.Point.Create(0, 0);
Self.ToolBar2.Name := 'ToolBar2';
Self.ToolBar2.ShowToolTips := True;
Self.ToolBar2.Size := System.Drawing.Size.Create(416, 41);
Self.ToolBar2.TabIndex := 7;
Include(Self.ToolBar2.ButtonClick, Self.ToolBar2_ButtonClick);
//
// tbnedit
//
Self.tbnedit.ImageIndex := 8;
Self.tbnedit.Tag := '1';
Self.tbnedit.Text := '编辑';
Self.tbnedit.ToolTipText := '编辑';
//
// tbnsave
//
Self.tbnsave.ImageIndex := 9;
Self.tbnsave.Tag := '2';
Self.tbnsave.Text := '保存';
Self.tbnsave.ToolTipText := '保存';
//
// ToolBarButton1
//
Self.ToolBarButton1.Style := System.Windows.Forms.ToolBarButtonStyle.Separator;
//
// ToolBarButton2
//
Self.ToolBarButton2.ImageIndex := 10;
Self.ToolBarButton2.Tag := '3';
Self.ToolBarButton2.Text := '取消';
Self.ToolBarButton2.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.dtpchuqinF);
Self.TabPage2.Controls.Add(Self.CheckBox1);
Self.TabPage2.Controls.Add(Self.GroupBox1);
Self.TabPage2.Controls.Add(Self.DataGrid1);
Self.TabPage2.Controls.Add(Self.butfind);
Self.TabPage2.Location := System.Drawing.Point.Create(4, 21);
Self.TabPage2.Name := 'TabPage2';
Self.TabPage2.Size := System.Drawing.Size.Create(416, 343);
Self.TabPage2.TabIndex := 1;
Self.TabPage2.Text := '信息查询';
//
// dtpchuqinF
//
Self.dtpchuqinF.CustomFormat := 'yyyy-MM';
Self.dtpchuqinF.Enabled := False;
Self.dtpchuqinF.Format := System.Windows.Forms.DateTimePickerFormat.Custom;
Self.dtpchuqinF.Location := System.Drawing.Point.Create(88, 112);
Self.dtpchuqinF.Name := 'dtpchuqinF';
Self.dtpchuqinF.Size := System.Drawing.Size.Create(112, 21);
Self.dtpchuqinF.TabIndex := 8;
//
// CheckBox1
//
Self.CheckBox1.Location := System.Drawing.Point.Create(16, 112);
Self.CheckBox1.Name := 'CheckBox1';
Self.CheckBox1.TabIndex := 7;
Self.CheckBox1.Text := '出勤月份';
Include(Self.CheckBox1.CheckedChanged, Self.CheckBox1_CheckedChanged);
//
// GroupBox1
//
Self.GroupBox1.Controls.Add(Self.dtpriqiF);
Self.GroupBox1.Controls.Add(Self.cmbnameF);
Self.GroupBox1.Controls.Add(Self.cmbbianhaoF);
Self.GroupBox1.Controls.Add(Self.cmbbumenF);
Self.GroupBox1.Controls.Add(Self.ckbqingjia);
Self.GroupBox1.Controls.Add(Self.ckbchuchai);
Self.GroupBox1.Controls.Add(Self.ckbjiaban);
Self.GroupBox1.Controls.Add(Self.ckbzaotui);
Self.GroupBox1.Controls.Add(Self.ckbChidao);
Self.GroupBox1.Controls.Add(Self.Label15);
Self.GroupBox1.Controls.Add(Self.Label14);
Self.GroupBox1.Controls.Add(Self.Label4);
Self.GroupBox1.Controls.Add(Self.Label3);
Self.GroupBox1.Location := System.Drawing.Point.Create(0, 8);
Self.GroupBox1.Name := 'GroupBox1';
Self.GroupBox1.Size := System.Drawing.Size.Create(416, 96);
Self.GroupBox1.TabIndex := 6;
Self.GroupBox1.TabStop := False;
Self.GroupBox1.Text := ' ';
//
// dtpriqiF
//
Self.dtpriqiF.CustomFormat := 'yyyy-MM-dd';
Self.dtpriqiF.Format := System.Windows.Forms.DateTimePickerFormat.Custom;
Self.dtpriqiF.Location := System.Drawing.Point.Create(72, 16);
Self.dtpriqiF.MaxDate := System.DateTime.Create(9998, 10, 27, 0, 0, 0, 0);
Self.dtpriqiF.Name := 'dtpriqiF';
Self.dtpriqiF.Size := System.Drawing.Size.Create(120, 21);
Self.dtpriqiF.TabIndex := 13;
//
// cmbnameF
//
Self.cmbnameF.Location := System.Drawing.Point.Create(280, 40);
Self.cmbnameF.Name := 'cmbnameF';
Self.cmbnameF.Size := System.Drawing.Size.Create(104, 20);
Self.cmbnameF.TabIndex := 12;
Self.cmbnameF.Text := ' ';
//
// cmbbianhaoF
//
Self.cmbbianhaoF.Location := System.Drawing.Point.Create(72, 40);
Self.cmbbianhaoF.Name := 'cmbbianhaoF';
Self.cmbbianhaoF.Size := System.Drawing.Size.Create(120, 20);
Self.cmbbianhaoF.TabIndex := 11;
Self.cmbbianhaoF.Text := ' ';
//
// cmbbumenF
//
Self.cmbbumenF.Location := System.Drawing.Point.Create(280, 16);
Self.cmbbumenF.Name := 'cmbbumenF';
Self.cmbbumenF.Size := System.Drawing.Size.Create(104, 20);
Self.cmbbumenF.TabIndex := 10;
Self.cmbbumenF.Text := ' ';
//
// ckbqingjia
//
Self.ckbqingjia.Location := System.Drawing.Point.Create(152, 64);
Self.ckbqingjia.Name := 'ckbqingjia';
Self.ckbqingjia.Size := System.Drawing.Size.Create(72, 24);
Self.ckbqingjia.TabIndex := 8;
Self.ckbqingjia.Text := '请假';
//
// ckbchuchai
//
Self.ckbchuchai.Location := System.Drawing.Point.Create(304, 64);
Self.ckbchuchai.Name := 'ckbchuchai';
Self.ckbchuchai.Size := System.Drawing.Size.Create(88, 24);
Self.ckbchuchai.TabIndex := 7;
Self.ckbchuchai.Text := '出差';
//
// ckbjiaban
//
Self.ckbjiaban.Location := System.Drawing.Point.Create(224, 64);
Self.ckbjiaban.Name := 'ckbjiaban';
Self.ckbjiaban.Size := System.Drawing.Size.Create(80, 24);
Self.ckbjiaban.TabIndex := 6;
Self.ckbjiaban.Text := '加班';
//
// ckbzaotui
//
Self.ckbzaotui.Location := System.Drawing.Point.Create(88, 64);
Self.ckbzaotui.Name := 'ckbzaotui';
Self.ckbzaotui.Size := System.Drawing.Size.Create(72, 24);
Self.ckbzaotui.TabIndex := 5;
Self.ckbzaotui.Text := '早退';
//
// ckbChidao
//
Self.ckbChidao.Location := System.Drawing.Point.Create(16, 64);
Self.ckbChidao.Name := 'ckbChidao';
Self.ckbChidao.Size := System.Drawing.Size.Create(72, 24);
Self.ckbChidao.TabIndex := 4;
Self.ckbChidao.Text := '迟到';
//
// Label15
//
Self.Label15.Location := System.Drawing.Point.Create(8, 40);
Self.Label15.Name := 'Label15';
Self.Label15.TabIndex := 3;
Self.Label15.Text := '员工编号：';
//
// Label14
//
Self.Label14.Location := System.Drawing.Point.Create(216, 40);
Self.Label14.Name := 'Label14';
Self.Label14.TabIndex := 2;
Self.Label14.Text := '姓 名：';
//
// Label4
//
Self.Label4.Location := System.Drawing.Point.Create(216, 16);
Self.Label4.Name := 'Label4';
Self.Label4.TabIndex := 1;
Self.Label4.Text := '部 门：';
//
// Label3
//
Self.Label3.Location := System.Drawing.Point.Create(8, 17);
Self.Label3.Name := 'Label3';
Self.Label3.TabIndex := 0;
Self.Label3.Text := '出勤日期：';
//
// 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, 144);
Self.DataGrid1.Name := 'DataGrid1';
Self.DataGrid1.ReadOnly := True;
Self.DataGrid1.Size := System.Drawing.Size.Create(408, 184);
Self.DataGrid1.TabIndex := 5;
Include(Self.DataGrid1.CurrentCellChanged, Self.DataGrid1_CurrentCellChanged);
//
// butfind
//
Self.butfind.Location := System.Drawing.Point.Create(280, 112);
Self.butfind.Name := 'butfind';
Self.butfind.Size := System.Drawing.Size.Create(104, 24);
Self.butfind.TabIndex := 4;
Self.butfind.Text := '查 询';
Include(Self.butfind.Click, Self.butfind_Click);
//
// TWinchuqin
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
Self.ClientSize := System.Drawing.Size.Create(424, 365);
Self.Controls.Add(Self.TabControl1);
Self.FormBorderStyle := System.Windows.Forms.FormBorderStyle.FixedSingle;
Self.Icon := (System.Drawing.Icon(resources.GetObject('$this.Icon')));
Self.KeyPreview := True;
Self.Name := 'TWinchuqin';
Self.Text := '出勤管理';
Include(Self.Load, Self.TWinchuqin_Load);
Include(Self.Closed, Self.TWinchuqin_Closed);
Self.TabControl1.ResumeLayout(False);
Self.TabPage1.ResumeLayout(False);
Self.TabPage2.ResumeLayout(False);
Self.GroupBox1.ResumeLayout(False);
(System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
Self.ResumeLayout(False);
end;
{$ENDREGION}
procedure TWinchuqin.Dispose(Disposing: Boolean);
begin
if Disposing then
begin
if Components <> nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinchuqin.Create;
begin
inherited Create;
//
// Required for Windows Form Designer support
//
InitializeComponent;
//
// TODO: Add any constructor code after InitializeComponent call
//
end;
procedure TWinchuqin.dtpQingJia_ValueChanged(sender: System.Object; e: System.EventArgs);
begin
end;
//****************************************************************
//* 窗体加载 [Load]
//*
//* [参数]
//* 1：系统参数
//* 2：系统参数
//* [返回]
//* 无
//****************************************************************
procedure TWinchuqin.TWinchuqin_Load(sender: System.Object; e: System.EventArgs);
var
w_sql:string;
begin
try
clsmain.Winchuqinshowfla:=true;
item_clear();
txtname.Enabled:=false;
txtname.Enabled:=false;
txtbumen.Enabled:=false;
dtpriqi.Enabled:=false;
RefreshEnabled(false,false);
ToolBar2.Buttons[1].Enabled := false; //保存按钮不可用
w_sql:='select 部门名称 from 部门表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbbumenF,true);
w_sql:='select 员工编号 from 员工基本信息表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbbianhaoF,true);
w_sql:='select 姓名 from 员工基本信息表';
clsmain.TClass1.Create.ComboBox_Load(w_sql,cmbnameF,true);
except
on ex:exception do
begin
messagebox.Show('TWinchuqin_Load:('+ ex.Message+')','考勤管理系统');
end;
end;
end;
//****************************************************************
//* 窗体卸载 [closed]
//*
//* [参数]
//* 1：系统参数
//* 2：系统参数
//* [返回]
//* 无
//****************************************************************
procedure TWinchuqin.TWinchuqin_Closed(sender: System.Object; e: System.EventArgs);
begin
try
clsmain.Winchuqinshowfla:=false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -