monthjzgl.~pas

毕业设计时候开发的人事管理系统

unit monthjzgl;

interface

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

type
  Tfrmmonthjzgl = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit2: TEdit;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmonthjzgl: Tfrmmonthjzgl;

implementation

uses yggzjs, datarsgl;

{$R *.dfm}

procedure Tfrmmonthjzgl.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure Tfrmmonthjzgl.BitBtn2Click(Sender: TObject);
begin
with tfrmyggzjs.Create(self) do
begin
show;
end; 
end;

procedure Tfrmmonthjzgl.FormCreate(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select number from employeer');
open;
first;
while not eof do
begin
combobox1.Items.Add(fieldbyname('number').AsString);
next;
end;
end;
with dmrsgl.ygmonthgzqry do
begin
close;
sql.Clear;
sql.Add('select * from monthgz');
open;
datasource1.DataSet:=dmrsgl.ygmonthgzqry;
dbgrid1.DataSource:=datasource1;
dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+60;
dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+60;
dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+60;
dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+60;
dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('ygposition');
dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+60;
dbgrid1.Columns[5].Field:=datasource1.DataSet.FieldByName('gzze');
dbgrid1.Columns[5].Width:=datasource1.DataSet.Fields[5].DisplayWidth+60;
dbgrid1.Columns[6].Field:=datasource1.DataSet.FieldByName('kcgz');
dbgrid1.Columns[6].Width:=datasource1.DataSet.Fields[6].DisplayWidth+60;
dbgrid1.Columns[7].Field:=datasource1.DataSet.FieldByName('sjgz');
dbgrid1.Columns[7].Width:=datasource1.DataSet.Fields[7].DisplayWidth+60;
end;
end;

procedure Tfrmmonthjzgl.ComboBox1Change(Sender: TObject);
begin
with dmrsgl.ygjbzlqry do
begin
close;
sql.Clear;
sql.Add('select * from employeer where number='+quotedstr(combobox1.Text));
open;
edit1.Text:=fieldbyname('name').AsString;
edit2.Text:=fieldbyname('sex').AsString;
edit3.Text:=fieldbyname('ygbm').AsString;
edit4.Text:=fieldbyname('position').AsString;
end;
end;
procedure Tfrmmonthjzgl.BitBtn3Click(Sender: TObject);
begin
with dmrsgl.ygmonthgzqry do
begin
close;
sql.Clear;
sql.Add('select * from monthgz');
open;
datasource1.DataSet:=dmrsgl.ygmonthgzqry;
dbgrid1.DataSource:=datasource1;
dbgrid1.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgrid1.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+60;
dbgrid1.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgrid1.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+60;
dbgrid1.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgrid1.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+60;
dbgrid1.Columns[3].Field:=datasource1.DataSet.FieldByName('ygbm');
dbgrid1.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+60;
dbgrid1.Columns[4].Field:=datasource1.DataSet.FieldByName('ygposition');
dbgrid1.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+60;
dbgrid1.Columns[5].Field:=datasource1.DataSet.FieldByName('gzze');
dbgrid1.Columns[5].Width:=datasource1.DataSet.Fields[5].DisplayWidth+60;
dbgrid1.Columns[6].Field:=datasource1.DataSet.FieldByName('kqgz');
dbgrid1.Columns[6].Width:=datasource1.DataSet.Fields[6].DisplayWidth+60;
dbgrid1.Columns[7].Field:=datasource1.DataSet.FieldByName('sjgz');
dbgrid1.Columns[7].Width:=datasource1.DataSet.Fields[7].DisplayWidth+60;
end;
end;

procedure Tfrmmonthjzgl.BitBtn1Click(Sender: TObject);
begin
with dmrsgl.ygmonthgzqry do
begin
close;
sql.clear;
sql.Add('select * from monthgz');
open;
append;
fieldbyname('number').AsString:=combobox1.Text;
fieldbyname('name').AsString:=edit1.Text;
fieldbyname('sex').AsString:=edit2.Text;
fieldbyname('ygbm').AsString:=edit3.Text;
fieldbyname('ygposition').AsString:=edit4.Text;
if messagedlg('确认保存数据吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.Text:='';
combobox1.SetFocus;
end
else
messagedlg('你已取消本次操作,请重新再来.',mtinformation,[mbyes],0);
cancel;
end;
end;

end.