yggb.pas

2004090611144625767.rar 资源名称:通用工资管理

unit yggb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, DBCtrls, ToolWin, Mask, Db, Grids,ExtDlgs, ImgList;

type
  Tyggbb = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    panel1: TPanel;
    Edit1: TEdit;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Button3: TButton;
    DataSource7: TDataSource;
    OpenPictureDialog1: TOpenPictureDialog;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit3: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    DBComboBox5: TDBComboBox;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DateTimePicker2: TDateTimePicker;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Panel3: TPanel;
    DBImage1: TDBImage;
    Button1: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox6: TDBComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    TabSheet2: TTabSheet;
    DBRichEdit1: TDBRichEdit;
    ImageList1: TImageList;
    Edit2: TEdit;
    DBEdit12: TDBEdit;
    TreeView2: TTreeView;
    Label24: TLabel;
    Button4: TButton;
    DataSource6: TDataSource;
    ListBox1: TListBox;
    TreeView1: TTreeView;
    Label25: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBComboBox2Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Panel2Enter(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure DBListBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure TreeView1Exit(Sender: TObject);
    procedure DBEdit12Enter(Sender: TObject);
    procedure TreeView1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TreeView2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit12Exit(Sender: TObject);
    procedure DBEdit3Exit(Sender: TObject);
    procedure TreeView2Exit(Sender: TObject);
    procedure DBEdit12KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBEdit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button4Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure DBEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBComboBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBComboBox5KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit5KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit7KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit8KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit9KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit10KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit11KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBComboBox6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit8Enter(Sender: TObject);
    procedure DBEdit9Enter(Sender: TObject);
    procedure DBEdit10Enter(Sender: TObject);
    procedure DBEdit11Enter(Sender: TObject);
    procedure DBEdit6Enter(Sender: TObject);
    procedure DBEdit7Enter(Sender: TObject);
    procedure DBEdit4Enter(Sender: TObject);
    procedure DBEdit5Enter(Sender: TObject);
    procedure DBComboBox1Enter(Sender: TObject);
    procedure DBLookupComboBox1Enter(Sender: TObject);
    procedure DateTimePicker1Enter(Sender: TObject);
    procedure DateTimePicker2Enter(Sender: TObject);
    procedure DBLookupComboBox2Enter(Sender: TObject);
    procedure DBComboBox5Enter(Sender: TObject);
    procedure DBComboBox6Enter(Sender: TObject);
    procedure DBLookupComboBox4Enter(Sender: TObject);
    procedure DBLookupComboBox3Enter(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
    procedure DateTimePicker1Exit(Sender: TObject);
    procedure DBLookupComboBox2Exit(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBEdit4Exit(Sender: TObject);
    procedure DBEdit5Exit(Sender: TObject);
    procedure DateTimePicker2Exit(Sender: TObject);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBLookupComboBox3Exit(Sender: TObject);
    procedure DBLookupComboBox4Exit(Sender: TObject);
    procedure DBComboBox6Exit(Sender: TObject);
    procedure DBEdit8Exit(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure DBRichEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
 i_key13,i:boolean; //判断是否要显示全体人员
   ii:string;
  //i_edit:boolean;//用来修正dblistbox1在修改的时候会出现记录定位不准的错误
  end;

var
  yggbb: Tyggbb;

implementation

uses datamodule;

{$R *.DFM}

procedure Tyggbb.FormCreate(Sender: TObject);
begin
button3.visible:=false;
end;


procedure Tyggbb.Button3Click(Sender: TObject);
var
str:string;
begin
listbox1.clear;
str:='select *from yggb.db where a_bm=';
str:=str+''''+edit1.text+''''+' and a_bz=';
str:=str+''''+edit2.text+'''';
if i=true then
str:='select *from yggb.db';
with datamodule1.yggb do
begin
close;
sql.clear;
sql.add(str);
prepare;
open;
end;
if datamodule1.yggb.Eof then
begin
showmessage('此部门还没有人员编制!');
listbox1.clear;
end
else
begin
while not datamodule1.yggb.eof  do
begin
listbox1.Items.add(datamodule1.yggb.fieldbyname('a_name').asstring);
datamodule1.yggb.next;
end;
end;
i:=false;
end;
procedure Tyggbb.ToolButton3Click(Sender: TObject);
begin
dbedit1.readonly:=false;
dbedit2.readonly:=false;
dbcombobox1.readonly:=false;
dbedit12.readonly:=false;
dbedit3.readonly:=false;
dblookupcombobox1.readonly:=false;
dblookupcombobox2.readonly:=false;
dbcombobox5.readonly:=false;
dbedit4.readonly:=false;
dbedit5.readonly:=false;
dbedit6.readonly:=false;
dbedit7.readonly:=false;
dblookupcombobox3.readonly:=false;
dblookupcombobox4.readonly:=false;
dbedit8.readonly:=false;
dbedit9.readonly:=false;
dbedit10.readonly:=false;
dbedit11.readonly:=false;
dbrichedit1.readonly:=false;
dbcombobox6.readonly:=false;
datamodule1.yggbb.append;

end;
procedure Tyggbb.ToolButton4Click(Sender: TObject);
begin
if datamodule1.yggbb.State in [dsinsert,dsedit] then
begin
with datamodule1.yggbb do
begin
try
fieldbyname('a_name').asstring:=dbedit1.text;
fieldbyname('a_number').asstring:=dbedit2.text;
fieldbyname('A_sex').asstring:=dbcombobox1.text;
fieldbyname('A_bm').asstring:=dbedit12.text;
fieldbyname('a_bz').asstring:=dbedit3.text;
fieldbyname('a_mz').asstring:=dblookupcombobox1.Text;
fieldbyname('a_bir').asdatetime:=datetimepicker1.Date;
fieldbyname('a_whzd').asstring:=dblookupcombobox2.Text;
fieldbyname('a_hyzk').asstring:=dbcombobox5.text;
fieldbyname('a_tel').asstring:=dbedit4.text;
fieldbyname('a_tel1').asstring:=dbedit5.text;
fieldbyname('a_hzsj').asdatetime:=datetimepicker2.Date;
fieldbyname('a_hname').asstring:=dbedit6.text;
fieldbyname('a_htel').asstring:=dbedit7.Text;
fieldbyname('a_zz').asstring:=dblookupcombobox3.text;
fieldbyname('a_zw').asstring:=dblookupcombobox4.text;
fieldbyname('a_yhzh').asstring:=dbedit8.text;
fieldbyname('a_jg').asstring:=dbedit9.text;
fieldbyname('a_addr').asstring:=dbedit10.text;
fieldbyname('A_work').asstring:=dbedit11.text;
fieldbyname('a_photo').value:=dbimage1.Field.AsVariant;
fieldbyname('a_grjn').asstring:=dbrichedit1.Text;
fieldbyname('a_khh').asstring:=dbcombobox6.text;
post;
dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbcombobox1.readonly:=true;
dbedit12.readonly:=true;
dbedit3.readonly:=true;
dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
dbcombobox5.readonly:=true;
dbedit4.readonly:=true;
dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.readonly:=true;
dblookupcombobox3.readonly:=true;
dblookupcombobox4.readonly:=true;
dbedit8.readonly:=true;
dbedit9.readonly:=true;
dbedit10.readonly:=true;
dbedit11.readonly:=true;
dbrichedit1.readonly:=true;
dbcombobox6.readonly:=true;


dbedit1.text:='';
dbedit2.text:='';
dbcombobox1.text:='';
dbedit12.text:='';
dbedit3.text:='';
dblookupcombobox1.readonly:=true;
dblookupcombobox2.readonly:=true;
dbcombobox5.text:='';
dbedit4.text:='';
dbedit5.text:='';
dbedit6.text:='';
dbedit7.text:='';
dblookupcombobox3.readonly:=true;
dblookupcombobox4.readonly:=true;
dbedit8.text:='';
dbedit9.text:='';
dbedit10.text:='';
dbedit11.text:='';
dbrichedit1.text:='';
dbcombobox6.readonly:=true;
showmessage('正确保存');
button3.click;
except
showmessage('不能正确保存数据，请确保数据的正确性!');
end;
end;
end
else
showmessage('请先按新增或修改按钮然后输入数据，再按保存，谢谢!');
end;
procedure Tyggbb.Button1Click(Sender: TObject);
begin
if openpicturedialog1.execute then
dbimage1.picture.loadfromfile(openpicturedialog1.filename);
end;


procedure Tyggbb.ToolButton2Click(Sender: TObject);
begin
datamodule1.yggbb.Edit;
dbedit1.readonly:=false;
dbedit2.readonly:=false;
dbcombobox1.readonly:=false;
dbedit12.readonly:=false;
dbedit3.readonly:=false;
dblookupcombobox1.readonly:=false;
dblookupcombobox2.readonly:=false;
dbcombobox5.readonly:=false;
dbedit4.readonly:=false;
dbedit5.readonly:=false;
dbedit6.readonly:=false;
dbedit7.readonly:=false;
dblookupcombobox3.readonly:=false;
dblookupcombobox4.readonly:=false;
dbedit8.readonly:=false;
dbedit9.readonly:=false;
dbedit10.readonly:=false;
dbedit11.readonly:=false;
dbrichedit1.readonly:=false;
dbcombobox6.readonly:=false;
end;
procedure Tyggbb.Button2Click(Sender: TObject);
begin
i:=true;
edit1.text:='';
edit2.text:='';
button3.click;
end;

procedure Tyggbb.DBComboBox2Enter(Sender: TObject);
begin
ii:=dbedit12.Text;
end;

procedure Tyggbb.FormShow(Sender: TObject);
 var
grouprsbm,rsbmstr:string;
begin
pagecontrol1.ActivePageIndex :=0;
button4.visible:=false;
//i_change:=false;
treeview1.items.clear;
grouprsbm:='select a_bm from rsbm group by a_bm';
with datamodule1.rsbms do
begin
close;
sql.clear;
sql.add(grouprsbm);
prepare;
open;
end;
datamodule1.rsbms.Last;
while not datamodule1.rsbms.bof do
begin
 rsbmstr:='select *from rsbm where a_bm='+''''+datamodule1.rsbms.fieldbyname('a_bm').asstring+'''';
 with datamodule1.rsbmss do
 begin
 close;
 sql.clear;
 sql.add(rsbmstr);
 prepare;
 open;
 end;//with
 // treeview1.Items.Clear;
 if datamodule1.rsbms.eof  then
 begin
 if (datamodule1.rsbms.eof) and (datamodule1.rsbmss.RecordCount<=1) then
 begin
 treeview1.Items.Add(treeview1.TopItem ,datamodule1.rsbmss.fieldbyname('a_bm').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
 treeview1.TopItem.selected:=true;
 end//if
 else
 begin
 treeview1.Items.Add(treeview1.TopItem ,datamodule1.rsbms.fieldbyname('a_bm').asstring);
 datamodule1.rsbmss.last;
 while not datamodule1.rsbmss.bof do
 begin
  if datamodule1.rsbmss.FieldByName('a_bz').asstring<>'' then
 treeview1.Items.addchild(treeview1.topitem,datamodule1.rsbmss.fieldbyname('a_bz').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
 datamodule1.rsbmss.prior;
 end;//while
 treeview1.TopItem.selected:=true;
 end;//else  第一条头节点
  end//datamodule1.rsbms.bof
  else
  begin
  if datamodule1.rsbmss.RecordCount<=1 then
  begin
  treeview1.Items.Add(treeview1.selected,datamodule1.rsbmss.fieldbyname('a_bm').asstring+'('+datamodule1.rsbmss.fieldbyname('a_number').asstring+')');
  treeview1.Selected.getNextSibling.Selected :=true;
  end
  else
  begin
  treeview1.items.add(treeview1.Selected.getNextSibling,datamodule1.rsbms.fieldbyname('a_bm').asstring);