winpost.pas

考勤管理 考勤管理 考勤管理

unit Winpost;
//****************************************************************
//*公司名：华夏数码有限公司
//*系统名：考勤管理系统
//*程序名：WinPost
//*
//*--------------------------------------------------------------
//*  [年月日]     [制造者]
//*--------------------------------------------------------------
//*  2005/12/09     徐二芳
//*
//****************************************************************
interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Resources,clsmain,
  System.Data.OleDb,borland.Vcl.SysUtils;

type
  TWinpost = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    components: System.ComponentModel.IContainer;
    TabControl1: System.Windows.Forms.TabControl;
    ImageList1: System.Windows.Forms.ImageList;
    TabPage1: System.Windows.Forms.TabPage;
    TabPage2: System.Windows.Forms.TabPage;
    tbnadd: System.Windows.Forms.ToolBarButton;
    tbnedit: System.Windows.Forms.ToolBarButton;
    tbnsave: System.Windows.Forms.ToolBarButton;
    tbndel: System.Windows.Forms.ToolBarButton;
    ToolBarButton1: System.Windows.Forms.ToolBarButton;
    tbnexit: System.Windows.Forms.ToolBarButton;
    ToolBar1: System.Windows.Forms.ToolBar;
    Label1: System.Windows.Forms.Label;
    Textname: System.Windows.Forms.TextBox;
    Label2: System.Windows.Forms.Label;
    Textbeizhu: System.Windows.Forms.TextBox;
    TextnameF: System.Windows.Forms.TextBox;
    Label3: System.Windows.Forms.Label;
    DataGrid1: System.Windows.Forms.DataGrid;
    Butfind: System.Windows.Forms.Button;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure TWinpost_Load(sender: System.Object; e: System.EventArgs);
    procedure TWinpost_Closed(sender: System.Object; e: System.EventArgs);
    procedure TWinpost_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
    procedure TWinpost_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
    procedure TabControl1_SelectedIndexChanged(sender: System.Object; e: System.EventArgs);
    procedure ToolBar1_ButtonClick(sender: System.Object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
    procedure Butfind_Click(sender: System.Object; e: System.EventArgs);
    procedure DataGrid1_CurrentCellChanged(sender: System.Object; e: System.EventArgs);
    procedure TabControl1_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    procedure item_clear;
    procedure RefreshEnabled(NThis, NOther: Boolean);
    function item_check: boolean;
    function item_checkF: boolean;
    function check_textname: boolean;
    function check_textnameF: boolean;
    function Data_Ent: boolean;
    function data_upd: boolean;
    function data_del: boolean;
    function data_get: boolean;
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinpost))]

implementation
var
  //MyDs:DataSet;
  DGDs:DataSet;
  Flg:string;
{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinpost.InitializeComponent;
type
  TSystem_Windows_Forms_ToolBarButtonArray = array of System.Windows.Forms.ToolBarButton;
var
  resources: System.Resources.ResourceManager;
begin
  Self.components := System.ComponentModel.Container.Create;
  resources := System.Resources.ResourceManager.Create(TypeOf(TWinpost));
  Self.TabControl1 := System.Windows.Forms.TabControl.Create;
  Self.TabPage1 := System.Windows.Forms.TabPage.Create;
  Self.Butfind := System.Windows.Forms.Button.Create;
  Self.DataGrid1 := System.Windows.Forms.DataGrid.Create;
  Self.TextnameF := System.Windows.Forms.TextBox.Create;
  Self.Label3 := System.Windows.Forms.Label.Create;
  Self.TabPage2 := System.Windows.Forms.TabPage.Create;
  Self.Textbeizhu := System.Windows.Forms.TextBox.Create;
  Self.Label2 := System.Windows.Forms.Label.Create;
  Self.Textname := System.Windows.Forms.TextBox.Create;
  Self.Label1 := System.Windows.Forms.Label.Create;
  Self.ToolBar1 := System.Windows.Forms.ToolBar.Create;
  Self.tbnadd := System.Windows.Forms.ToolBarButton.Create;
  Self.tbnedit := System.Windows.Forms.ToolBarButton.Create;
  Self.tbnsave := System.Windows.Forms.ToolBarButton.Create;
  Self.tbndel := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton1 := System.Windows.Forms.ToolBarButton.Create;
  Self.tbnexit := System.Windows.Forms.ToolBarButton.Create;
  Self.ImageList1 := System.Windows.Forms.ImageList.Create(Self.components);
  Self.TabControl1.SuspendLayout;
  Self.TabPage1.SuspendLayout;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).BeginInit;
  Self.TabPage2.SuspendLayout;
  Self.SuspendLayout;
  // 
  // TabControl1
  // 
  Self.TabControl1.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.TabControl1.Controls.Add(Self.TabPage1);
  Self.TabControl1.Controls.Add(Self.TabPage2);
  Self.TabControl1.Location := System.Drawing.Point.Create(0, 0);
  Self.TabControl1.Name := 'TabControl1';
  Self.TabControl1.SelectedIndex := 0;
  Self.TabControl1.Size := System.Drawing.Size.Create(296, 256);
  Self.TabControl1.TabIndex := 0;
  Include(Self.TabControl1.KeyDown, Self.TabControl1_KeyDown);
  Include(Self.TabControl1.SelectedIndexChanged, Self.TabControl1_SelectedIndexChanged);
  // 
  // TabPage1
  // 
  Self.TabPage1.Controls.Add(Self.Butfind);
  Self.TabPage1.Controls.Add(Self.DataGrid1);
  Self.TabPage1.Controls.Add(Self.TextnameF);
  Self.TabPage1.Controls.Add(Self.Label3);
  Self.TabPage1.Location := System.Drawing.Point.Create(4, 21);
  Self.TabPage1.Name := 'TabPage1';
  Self.TabPage1.Size := System.Drawing.Size.Create(288, 231);
  Self.TabPage1.TabIndex := 0;
  Self.TabPage1.Text := '信息查询';
  // 
  // Butfind
  // 
  Self.Butfind.Location := System.Drawing.Point.Create(208, 16);
  Self.Butfind.Name := 'Butfind';
  Self.Butfind.TabIndex := 7;
  Self.Butfind.Text := '查询';
  Include(Self.Butfind.Click, Self.Butfind_Click);
  // 
  // 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(0, 48);
  Self.DataGrid1.Name := 'DataGrid1';
  Self.DataGrid1.ReadOnly := True;
  Self.DataGrid1.Size := System.Drawing.Size.Create(288, 184);
  Self.DataGrid1.TabIndex := 6;
  Include(Self.DataGrid1.CurrentCellChanged, Self.DataGrid1_CurrentCellChanged);
  // 
  // TextnameF
  // 
  Self.TextnameF.Location := System.Drawing.Point.Create(80, 8);
  Self.TextnameF.Name := 'TextnameF';
  Self.TextnameF.Size := System.Drawing.Size.Create(96, 21);
  Self.TextnameF.TabIndex := 5;
  Self.TextnameF.Text := 'TextBox1';
  // 
  // Label3
  // 
  Self.Label3.Location := System.Drawing.Point.Create(16, 16);
  Self.Label3.Name := 'Label3';
  Self.Label3.TabIndex := 4;
  Self.Label3.Text := '职务名称：';
  // 
  // TabPage2
  // 
  Self.TabPage2.Controls.Add(Self.Textbeizhu);
  Self.TabPage2.Controls.Add(Self.Label2);
  Self.TabPage2.Controls.Add(Self.Textname);
  Self.TabPage2.Controls.Add(Self.Label1);
  Self.TabPage2.Controls.Add(Self.ToolBar1);
  Self.TabPage2.Location := System.Drawing.Point.Create(4, 21);
  Self.TabPage2.Name := 'TabPage2';
  Self.TabPage2.Size := System.Drawing.Size.Create(288, 231);
  Self.TabPage2.TabIndex := 1;
  Self.TabPage2.Text := '信息维护';
  // 
  // Textbeizhu
  // 
  Self.Textbeizhu.Location := System.Drawing.Point.Create(80, 88);
  Self.Textbeizhu.Name := 'Textbeizhu';
  Self.Textbeizhu.Size := System.Drawing.Size.Create(144, 21);
  Self.Textbeizhu.TabIndex := 5;
  Self.Textbeizhu.Text := 'TextBox1';
  // 
  // Label2
  // 
  Self.Label2.Location := System.Drawing.Point.Create(16, 88);
  Self.Label2.Name := 'Label2';
  Self.Label2.TabIndex := 4;
  Self.Label2.Text := '备    注：';
  // 
  // Textname
  // 
  Self.Textname.Location := System.Drawing.Point.Create(80, 48);
  Self.Textname.Name := 'Textname';
  Self.Textname.TabIndex := 3;
  Self.Textname.Text := 'TextBox1';
  // 
  // Label1
  // 
  Self.Label1.Location := System.Drawing.Point.Create(16, 56);
  Self.Label1.Name := 'Label1';
  Self.Label1.TabIndex := 2;
  Self.Label1.Text := '职务名称：';
  // 
  // ToolBar1
  // 
  Self.ToolBar1.Buttons.AddRange(TSystem_Windows_Forms_ToolBarButtonArray.Create(Self.tbnadd, 
          Self.tbnedit, Self.tbnsave, Self.tbndel, Self.ToolBarButton1, 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(288, 41);
  Self.ToolBar1.TabIndex := 1;
  Include(Self.ToolBar1.ButtonClick, Self.ToolBar1_ButtonClick);
  // 
  // tbnadd
  // 
  Self.tbnadd.ImageIndex := 4;
  Self.tbnadd.Tag := '1';
  Self.tbnadd.Text := '添加';
  Self.tbnadd.ToolTipText := '添加';
  // 
  // tbnedit
  // 
  Self.tbnedit.ImageIndex := 1;
  Self.tbnedit.Tag := '2';
  Self.tbnedit.Text := '修改';
  Self.tbnedit.ToolTipText := '修改';
  // 
  // tbnsave
  // 
  Self.tbnsave.ImageIndex := 2;
  Self.tbnsave.Tag := '3';
  Self.tbnsave.Text := '保存';
  Self.tbnsave.ToolTipText := '保存';
  // 
  // tbndel
  // 
  Self.tbndel.ImageIndex := 6;
  Self.tbndel.Tag := '4';
  Self.tbndel.Text := '删除';
  Self.tbndel.ToolTipText := '删除';
  // 
  // ToolBarButton1
  // 
  Self.ToolBarButton1.Style := System.Windows.Forms.ToolBarButtonStyle.Separator;
  Self.ToolBarButton1.Tag := ' ';
  // 
  // tbnexit
  // 
  Self.tbnexit.ImageIndex := 3;
  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;
  // 
  // TWinpost
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.ClientSize := System.Drawing.Size.Create(292, 253);
  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 := 'TWinpost';
  Self.Text := '职务管理';
  Include(Self.KeyDown, Self.TWinpost_KeyDown);
  Include(Self.KeyPress, Self.TWinpost_KeyPress);
  Include(Self.Load, Self.TWinpost_Load);
  Include(Self.Closed, Self.TWinpost_Closed);
  Self.TabControl1.ResumeLayout(False);
  Self.TabPage1.ResumeLayout(False);
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
  Self.TabPage2.ResumeLayout(False);
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinpost.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinpost.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //