u_htlx.pas

完整的人事关系管理系统源码,包含数据库,界面不错,适合初学者参考

unit U_htlx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Buttons, ToolWin, Grids, DBGrids, StdCtrls, ExtCtrls,
  DB;

type
  Tfrm_htlx = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton6: TSpeedButton;
    DataSource1: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_htlx: Tfrm_htlx;

implementation

uses U_data;

{$R *.dfm}

procedure Tfrm_htlx.SpeedButton1Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
end;

procedure Tfrm_htlx.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_htlx.SpeedButton4Click(Sender: TObject);
begin
with data1.ADOQYhtlx do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 合同类型表 where 编号=:a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      open;
   end;
   data1.ADOQYhtlx.Active:=true;
   if data1.ADOQYhtlx.RecordCount>0 then
      begin
      application.MessageBox('编号不能重复，请重新输入！','提示',64);
      edit1.SetFocus;
      end
   else
      try
      with data1.ADOQYhtlx do
         begin
            close;
            sql.Clear;
            sql.Add('insetr 合同类型表 values(:a,:b)');
            parameters.ParamByName('a').Value:=trim(edit1.Text);
            parameters.ParamByName('b').Value:=trim(edit2.Text);
            execsql
         end;
            edit1.Clear;
            edit2.Clear;
            self.OnShow(sender);
      except
      application.MessageBox('系统统出错','提示',64);
      close;
      end;
end;

end.