u_htgl.pas

delphi做的管理信息系统

unit U_htgl;

interface

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

type
  Tfrm_htgl = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DataSource1: TDataSource;
    SpeedButton5: TSpeedButton;
    SpeedButton7: TSpeedButton;
    ComboBox2: TComboBox;
    ToolButton2: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure editvalue;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure editclear;
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_htgl: Tfrm_htgl;

implementation

uses U_data;

{$R *.dfm}

procedure Tfrm_htgl.FormShow(Sender: TObject);
begin
combobox1.Clear;
with data1.ADOQYhtgl do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 合同表');
      open;
   end;
      data1.ADOQYhtgl.Active:=true;
      if data1.ADOQYhtgl.FieldByName('合同编号').Value<>null then
         editvalue
      else
         application.MessageBox('数据库中没有数据，请添加数据！','提示',64);
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct bh from 人事表');
      open;
   end;
   while not data1.ADOpublic.Eof do
      begin
         combobox1.Items.Add(data1.ADOpublic.FieldByName('bh').Value);
         data1.ADOpublic.Next;
      end;
end;

procedure Tfrm_htgl.editclear;
begin
edit2.Clear;
edit4.Clear;
combobox1.Text:='';
combobox2.Text:='';
datetimepicker1.Date:=date();
datetimepicker2.Date:=date();
datetimepicker3.Date:=date();
memo1.Clear;
end;

procedure Tfrm_htgl.editvalue;
begin
edit1.Text:=data1.ADOQYhtgl.FieldByName('合同编号').Value;
combobox1.Text:=data1.ADOQYhtgl.FieldByName('员工编号').Value;
datetimepicker3.Date:=data1.ADOQYhtgl.FieldByName('登记日期').Value;
datetimepicker1.Date:=data1.ADOQYhtgl.FieldByName('合同开始日期').Value;
datetimepicker2.Date:=data1.ADOQYhtgl.FieldByName('合同结束日期').Value;
edit4.Text:=data1.ADOQYhtgl.FieldByName('合同期限').Value;
edit2.Text:=data1.ADOQYhtgl.FieldByName('合同期工资').Value;
combobox2.Text:=data1.ADOQYhtgl.FieldByName('状态').Value;
memo1.Text:=data1.ADOQYhtgl.FieldByName('备注').Value;
end;

procedure Tfrm_htgl.SpeedButton4Click(Sender: TObject);
var
a,b,c:string;
begin
a:=datetostr(datetimepicker3.Date);
b:=datetostr(datetimepicker1.Date);
c:=datetostr(datetimepicker2.Date);
if (combobox2.Text<>'') and (edit4.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') then
try
with data1.ADOQYhtgl do
   begin
      close;
      sql.Clear;
      sql.Add('insert 合同表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i)');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      parameters.ParamByName('b').Value:=trim(combobox1.Text);
      parameters.ParamByName('c').Value:=a;
      parameters.ParamByName('d').Value:=b;
      parameters.ParamByName('e').Value:=c;
      parameters.ParamByName('f').Value:=trim(edit4.Text);
      parameters.ParamByName('g').Value:=trim(edit2.Text);
      parameters.ParamByName('h').Value:=trim(combobox2.Text);
      parameters.ParamByName('i').Value:=trim(memo1.Text);
      execsql;
   end;
      self.OnShow(sender);
      application.MessageBox('保存成功','提示',64);
      speedbutton4.Enabled:=false;
      editclear;
except
   application.MessageBox('保存失败','提示',64);
end
else
   application.MessageBox('请完整添写信息','提示',64);
end;

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

procedure Tfrm_htgl.SpeedButton1Click(Sender: TObject);
var
a,b,c:string;
begin
if messagebox(self.Handle,'确定要修改该信息吗？','提示',mb_yesno+mb_iconquestion)=idyes then
a:=datetostr(datetimepicker3.Date);
b:=datetostr(datetimepicker1.Date);
c:=datetostr(datetimepicker2.Date);
with data1.ADOQYhtgl do
   begin
      edit;
      fieldbyname('合同编号').Value:=edit1.Text;
      fieldbyname('员工编号').Value:=combobox1.Text;
      fieldbyname('登记日期').Value:=a;
      fieldbyname('合同开始日期').Value:=b;
      fieldbyname('合同结束日期').Value:=c;
      fieldbyname('合同期限').Value:=edit4.Text;
      fieldbyname('合同期工资').Value:=edit2.Text;
      fieldbyname('状态').Value:=combobox2.Text;
      fieldbyname('备注').Value:=memo1.Text;
      post;
   end;
      editclear;
      application.MessageBox('修改成功','提示',64);
end;

procedure Tfrm_htgl.SpeedButton7Click(Sender: TObject);
var
djdate,zzdate:Tdatetime;
state:string;
begin
state:=data1.ADOQYhtgl.FieldByName('状态').Value;
djdate:=date();
zzdate:=data1.ADOQYhtgl.FieldByName('合同结束日期').Value;
if (djdate<zzdate) and (state='在职') then
application.MessageBox('该员工的合同期还未满，不能删除！','提示',64)
else
data1.ADOQYhtgl.Delete;
end;

procedure Tfrm_htgl.SpeedButton5Click(Sender: TObject);
var
s,m:string;
i:integer;
begin
editclear;
s:= FormatDateTime('yyyy',Now());
  With data1.ADOpublic do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(合同编号) as ss From 合同表 ');
    Open;
  end;
If data1.ADOpublic.FieldByName('ss').Value = null then
    s := s + '001'
  else
  begin
    m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;
    i:= StrToInt(copy(m,6,5)) ;
    if i<9 then
      s:= s + '00'+ InttoStr(i +1)
    else if i<99 then
      s:= s + '0'+ InttoStr(i +1)
    else
      s:= s +InttoStr(i +1);
  end;
  edit1.Text:=s;
  speedbutton4.Enabled:=true;
  combobox1.SetFocus;
end;

procedure Tfrm_htgl.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet<>nil then
   if dbgrid1.DataSource.DataSet.RecordCount>0 then
      editvalue;
end;

end.