addut.pas

用delphi+access给单位做的实用,简单的.

unit addut;

interface

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

type
  Taddfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    dh: TEdit;
    Label2: TLabel;
    xm: TEdit;
    Label3: TLabel;
    xb: TComboBox;
    Label4: TLabel;
    csrq: TDateTimePicker;
    Label5: TLabel;
    nl: TEdit;
    jg: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    zzmm: TComboBox;
    Label8: TLabel;
    dpsj: TDateTimePicker;
    Label9: TLabel;
    dhhm: TEdit;
    Label10: TLabel;
    sfzh: TEdit;
    Label11: TLabel;
    jtzz: TEdit;
    Label12: TLabel;
    xl: TComboBox;
    Label13: TLabel;
    byyx: TEdit;
    Label14: TLabel;
    zy: TEdit;
    Label15: TLabel;
    qrzxl: TComboBox;
    Label16: TLabel;
    byyx1: TEdit;
    Label17: TLabel;
    zy1: TEdit;
    Label18: TLabel;
    zw: TComboBox;
    Label19: TLabel;
    Label20: TLabel;
    zc: TComboBox;
    Label21: TLabel;
    dj: TComboBox;
    Label22: TLabel;
    bz: TComboBox;
    Label23: TLabel;
    qdzcrq: TDateTimePicker;
    Label24: TLabel;
    cjgzrq: TDateTimePicker;
    Label25: TLabel;
    zwbz: TComboBox;
    tj: TBitBtn;
    qx: TBitBtn;
    gb: TBitBtn;
    Label26: TLabel;
    sm: TEdit;
    ADOQuery: TADOQuery;
    ADOQuery1: TADOQuery;
    jb: TComboBox;
    procedure gbClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure csrqChange(Sender: TObject);
    procedure tjClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addfm: Taddfm;

implementation

uses mainut;

{$R *.dfm}

procedure Taddfm.gbClick(Sender: TObject);
begin
close;
end;

procedure Taddfm.FormCreate(Sender: TObject);
var
 sno,cno,vno:string;//编号变量
 llen:integer; //获取长度的变量
 i:integer;
begin
dh.Text:='';
//自动获取代号最大号
with adoquery do
  begin
   close;
   sql.Clear;
   sql.Add('select 代号 from 职工信息表');
   open;
   if recordcount<1 then
     begin
     cno:='001';
     vno:=cno;
     end
     else
     begin
      close;
      sql.Clear;
      sql.Add('select max(代号) as maxno  from 职工信息表');
      open;
      sno:=fieldbyname('maxno').AsString;
      llen:=strtoint(copy(sno,1,3))+1;
     case length(inttostr(llen)) of
     1:cno:='00'+inttostr(strtoint(copy(sno,1,3))+1);
     2:cno:='0'+inttostr(strtoint(copy(sno,1,3))+1);
     3:cno:=inttostr(strtoint(copy(sno,1,3))+1);
      else
       cno:='001';
    end;
        vno:=cno;
   end;
  end;
  dh.Text:=vno;
  xm.Clear;
  nl.Clear;
  jg.Clear;
  dhhm.Clear;
  sfzh.Clear;
  jtzz.Clear;
  byyx.Clear;
  zy.Clear;
  byyx1.Clear;
  zy1.Clear;
  sm.Clear;
  xb.Text:='';
  zzmm.Text:='';
  xl.text:='';
  qrzxl.Text:='';
  zw.Clear;
  jb.clear;
  zc.Clear;
  dj.Clear;
  bz.Clear;
  zwbz.Text:='';
  csrq.Date:=now;
  dpsj.Date:=now();
  qdzcrq.Date:=now();
  cjgzrq.Date:=now();


  with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 职务 from 职务表');
      open;
      first;
       while not eof do
         begin
           zw.Items.Add(fieldbyname('职务').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 职称 from 职称表');
      open;
      first;
       while not eof do
         begin
           zc.Items.Add(fieldbyname('职称').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 级别 from 级别表');
      open;
      first;
       while not eof do
         begin
           jb.Items.Add(fieldbyname('级别').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 等级 from 等级表');
      open;
      first;
       while not eof do
         begin
           dj.Items.Add(fieldbyname('等级').AsString);
           next;
         end;
    end;

    with adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 班组 from 班组表');
      open;
      first;
       while not eof do
         begin
           bz.Items.Add(fieldbyname('班组').AsString);
           next;
         end;
    end;

end;

procedure Taddfm.csrqChange(Sender: TObject);
var
year,month,day,year1,month1,day1:word;
begin
decodedate(now,year,month,day);
decodedate(csrq.Date,year1,month1,day1);
if month<month1 then
nl.Text:=inttostr(year-year1-1)
else
nl.Text:=inttostr(year-year1);
end;

procedure Taddfm.tjClick(Sender: TObject);
  var
   str:string;
begin
 str:='insert into 职工信息表(代号,姓名,性别,出身日期,年龄,籍贯,政治面貌,党派时间,';
 str:=str+'电话,身份证号,家庭住址,学历,毕业院校,专业,全日制学历,毕业院校1,专业1,';
 str:=str+'职务,级别,职称,等级,班组,取得日期,参加工作时间,职务标识,备注) values';
  str:=str+'("'+trim(dh.Text)+'","'+trim(xm.Text)+'","'+trim(xb.Text)+'","'+datetostr(csrq.date)+'","';
  str:=str+nl.Text+'","'+trim(jg.Text)+'","'+trim(zzmm.Text)+'","'+datetostr(dpsj.date)+'","';
  str:=str+trim(dhhm.Text)+'","'+trim(sfzh.Text)+'","'+trim(jtzz.Text)+'","'+trim(xl.Text)+'","';
  str:=str+trim(byyx.Text)+'","'+trim(zy.Text)+'","'+trim(qrzxl.Text)+'","'+trim(byyx1.Text)+'","';
  str:=str+trim(zy1.Text)+'","'+trim(zw.Text)+'","'+trim(jb.Text)+'","'+trim(zc.Text)+'","';
  str:=str+trim(dj.Text)+'","'+trim(bz.Text)+'","'+datetostr(qdzcrq.date)+'","'+datetostr(cjgzrq.date)+'","';
  str:=str+trim(zwbz.Text)+'","'+trim(sm.Text)+'")';


  if xm.Text='' then
    begin
      showmessage('请输入姓名');
      xm.SetFocus;
      exit;
    end;

  with adoquery do
   begin
     close;
     sql.Clear;
     sql.Add(str);
     try
      execsql;
      showmessage('职工信息添加成功!');
      qx.Click;
      mainfm.fresh.click;
     except
      showmessage('职工信息添加失败!');
     end; 
   end;
end;

end.