?? bm_zhiyuanu.pas
字號(hào):
unit BM_ZHIYUANU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ExtCtrls, Mask,OleCtnrs, Grids, DBGrids, ComCtrls,
Buttons, Menus, db,TabNotBk, ADODB,ImgList, CheckLst, QuickRpt, QRCtrls,ComObj,Excel2000;
type
TBM_ZHIYUANF = class(TForm)
Panel2: TPanel;
Splitter1: TSplitter;
PopupMenu2: TPopupMenu;
N5: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
OpenDialog1: TOpenDialog;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
Panel4: TPanel;
TreeView1: TTreeView;
TabbedNotebook1: TTabbedNotebook;
Panel5: TPanel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label15: TLabel;
Label1: TLabel;
Label7: TLabel;
Label8: TLabel;
Label23: TLabel;
Label24: TLabel;
Panel6: TPanel;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
Label9: TLabel;
cb1: TComboBox;
gongsi: TComboBox;
xingming: TEdit;
shengri: TEdit;
jiguan: TEdit;
bumen: TComboBox;
xueli: TComboBox;
zhicheng: TComboBox;
shenfen: TComboBox;
zhiwu: TEdit;
Memo: TMemo;
Panel7: TPanel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Shape1: TShape;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
jichu: TEdit;
gangwei: TEdit;
jiaban: TEdit;
zhufang: TEdit;
xiaoyi: TEdit;
diqu: TEdit;
gongling: TEdit;
Panel9: TPanel;
Panel8: TPanel;
Label25: TLabel;
ds: TEdit;
Label26: TLabel;
dg: TEdit;
Label27: TLabel;
DBGrid1: TDBGrid;
Panel10: TPanel;
dw: TComboBox;
xm: TEdit;
Label37: TLabel;
Label38: TLabel;
bm: TComboBox;
Label39: TLabel;
SpeedButton10: TSpeedButton;
bangong: TEdit;
Label40: TLabel;
Label41: TLabel;
zhuzhai: TEdit;
Label42: TLabel;
shouji: TEdit;
Label43: TLabel;
email: TEdit;
cha: TADOQuery;
Photo: TDBImage;
Label48: TLabel;
sf: TComboBox;
Label49: TLabel;
Label50: TLabel;
zc: TComboBox;
zw: TEdit;
zhiyuans: TDataSource;
diaoru: TEdit;
Label51: TLabel;
Shape5: TShape;
Label22: TLabel;
heji: TEdit;
jichuheji: TEdit;
Label52: TLabel;
DBGrid2: TDBGrid;
Shape6: TShape;
shijian: TEdit;
Label53: TLabel;
qita: TEdit;
Label54: TLabel;
Label56: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label61: TLabel;
Panel13: TPanel;
DBGrid3: TDBGrid;
dme: TMemo;
dd: TEdit;
Label29: TLabel;
Label30: TLabel;
db: TEdit;
Label31: TLabel;
dz: TEdit;
aq1: TADOQuery;
ds1: TDataSource;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
save: TSpeedButton;
hui1: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton11: TSpeedButton;
Panel12: TPanel;
SpeedButton8: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton18: TSpeedButton;
Label55: TLabel;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
Label28: TLabel;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
aq2: TADOQuery;
ds2: TDataSource;
cha2: TADOQuery;
Panel11: TPanel;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
Label32: TLabel;
liebiao: TADOQuery;
lie1: TDataSource;
diao: TADOQuery;
diao1: TDataSource;
ImageList2: TImageList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure saveClick(Sender: TObject);
procedure hui1Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure TreeView1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure cb1KeyPress(Sender: TObject; var Key: Char);
procedure shengriKeyPress(Sender: TObject; var Key: Char);
procedure xueliKeyPress(Sender: TObject; var Key: Char);
procedure zhichengKeyPress(Sender: TObject; var Key: Char);
procedure shenfenKeyPress(Sender: TObject; var Key: Char);
procedure zhiwuKeyPress(Sender: TObject; var Key: Char);
procedure emailKeyPress(Sender: TObject; var Key: Char);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure dwDropDown(Sender: TObject);
procedure bmDropDown(Sender: TObject);
procedure dwClick(Sender: TObject);
procedure sfDropDown(Sender: TObject);
procedure zcDropDown(Sender: TObject);
procedure zwDropDown(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DBGrid1DblClick(Sender: TObject);
procedure jichuKeyPress(Sender: TObject; var Key: Char);
procedure gangweiKeyPress(Sender: TObject; var Key: Char);
procedure jiabanKeyPress(Sender: TObject; var Key: Char);
procedure zhufangKeyPress(Sender: TObject; var Key: Char);
procedure xiaoyiKeyPress(Sender: TObject; var Key: Char);
procedure diquKeyPress(Sender: TObject; var Key: Char);
procedure gonglingKeyPress(Sender: TObject; var Key: Char);
procedure xingmingKeyPress(Sender: TObject; var Key: Char);
procedure jiguanKeyPress(Sender: TObject; var Key: Char);
procedure bangongKeyPress(Sender: TObject; var Key: Char);
procedure zhuzhaiKeyPress(Sender: TObject; var Key: Char);
procedure shoujiKeyPress(Sender: TObject; var Key: Char);
procedure MemoKeyPress(Sender: TObject; var Key: Char);
procedure hejiKeyPress(Sender: TObject; var Key: Char);
procedure dsKeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
procedure Label55Click(Sender: TObject);
procedure qitaKeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure SpeedButton9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure DBGrid3DblClick(Sender: TObject);
procedure xmKeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure dgKeyPress(Sender: TObject; var Key: Char);
procedure ddKeyPress(Sender: TObject; var Key: Char);
procedure dbKeyPress(Sender: TObject; var Key: Char);
procedure dzKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
procedure button_valid;
procedure noedit;
procedure yesedit;
procedure cls;
procedure saveimage;
procedure loadimage;
procedure change;
procedure readdata;
procedure readgongzi;
procedure readdiaodong;
procedure count ;
procedure AddPID(Node: TTreeNode; StrName: String; vi: Boolean);
procedure DeleteData(AutoID: Integer);
procedure refreshTree;
public
{ Public declarations }
procedure frashform;
end;
var
BM_ZHIYUANF: TBM_ZHIYUANF;
AORE:boolean;
mc,mc2,s2,sd:string;
vv,fid:integer;
implementation
uses BM_DMU, BM_BUMENU, BM_HINTU, BM_ZHIYUAN_ADDU, BM_OFICEU, printu,
printgz, printd;
{$R *.dfm}
procedure TBM_ZHIYUANF.loadimage;
var
bmp:TBitmap;
begin
try
bmp := Tbitmap.Create;
dm.zhiyuan2.Open;
bmp.Assign(dm.zhiyuan2.Fields[19]);
photo.Picture.Bitmap:=bmp;
finally
bmp.Free;
end;
end;
procedure TBM_ZHIYUANF.saveimage;
var
MyJPEG : Tbitmap;
MS: TMemoryStream;
begin
dm.zhiyuan2.Edit ;
MyJPEG := Tbitmap.Create;
try
with MyJPEG do
begin
Assign(photo.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
TBlobField(dm.zhiyuan2.FieldbyName('照片')).LoadFromStream(MS);
dm.zhiyuan2.Post ;
end;
finally
MyJPEG.Free;
end;
end;
procedure TBM_ZHIYUANF.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TBM_ZHIYUANF.N5Click(Sender: TObject);
begin
SpeedButton1Click(Sender);
end;
procedure TBM_ZHIYUANF.SpeedButton1Click(Sender: TObject);
var
s_zgbh,strName: string;
mynode: Ttreenode;
begin
if TreeView1.Selected.Selected =false then exit;
mynode := Treeview1.selected;
if mynode.Level =0 then exit;
strName:=inputbox('新增','請(qǐng)輸入下級(jí)分類(lèi)名稱(chēng)： ','');
strName:=trim(strName);
if strName='' then
exit;
AddPID(TreeView1.Selected, strName, false);
{
yesedit;
cls;
button_valid;
AORE:=true;
// end;
}
end;
procedure TBM_ZHIYUANF.N2Click(Sender: TObject);
begin
SpeedButton3Click(Sender);
end;
procedure TBM_ZHIYUANF.FormShow(Sender: TObject);
var i:integer;
n: TTreeNode;
begin
AORE:=false;
{noedit;
CB2.Items.Clear ;
WITH DM.QALL do
begin
close;
sql.Clear ;
sql.Add('select 部門(mén)名稱(chēng) from 部門(mén)');
open;
first;
end;
for i:=0 to DM.QALL.RecordCount-1 do
begin
CB2.Items.Add(DM.QALL.Fields[0].asstring);
DM.QALL.next;
end;
}
TreeView1.Items.Clear;
n := TreeView1.Items.AddObject(nil,'北明人事檔案信息',Pointer(-1));
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Text := 'select Count(*) from zhiyuan '
+ ' where 部門(mén)編碼 = ' + IntToStr(Integer(n.data)); //查看是否有下級(jí)子樹(shù)
dm.ADOQuery1.Open;
if dm.ADOQuery1.Fields[0].AsInteger <> 0 then
n.HasChildren := True;
n.imageindex := 0;
n.stateindex := 1;
n.selectedindex := 2;
/////
for i:= 0 to self.treeview1.Items.Count - 1 do
begin
if self.treeview1.Items.Item[i].Level = 0 then
begin
self.treeview1.Items.Item[i].Expanded:= true;
end;
end;
// treeview1.Items.Item[0].Selected := true;
// TreeView1.Selected.Selected := True;
end;
procedure TBM_ZHIYUANF.frashform;
begin
end;
procedure TBM_ZHIYUANF.SpeedButton3Click(Sender: TObject);
var strName:string;
mynode: Ttreenode;
begin
mynode := Treeview1.selected;
/////////
if mynode.Level <3 then
begin
strName:=inputbox('修改名稱(chēng)','請(qǐng)輸入要更改的名稱(chēng)： ',TreeView1.Selected.Text);
strName:=trim(strName);
if strName='' then
exit;
with dm.qryRun do
begin
Close;
SQL.Text := ' update zhiyuan set 公司名稱(chēng) = '''
+ strName + ''''
+ ' where ID = '
+ IntToStr(Integer(TreeView1.Selected.Data));
ExecSQL;
end;
TreeView1.Selected.Text := strName;
TreeView1.SetFocus;
TreeView1.Selected.Selected := True;
else
begin
vv:=Integer(TreeView1.Selected.Data);
button_valid;
yesedit;
AORE:=false;
// xingming.SetFocus ;
dm.zhiyuan2.Edit ;
end;
end;
procedure TBM_ZHIYUANF.SpeedButton5Click(Sender: TObject);
begin
close;
end;
procedure TBM_ZHIYUANF.SpeedButton4Click(Sender: TObject);
begin
//TreeView1.Selected.Parent;
//treeview1.Selected:=treeview1.Items.Item[treeview1.Items.count-1];
end;
procedure TBM_ZHIYUANF.button_valid;
begin
SpeedButton11.Enabled :=not SpeedButton11.Enabled ;
SpeedButton1.Enabled :=not SpeedButton1.Enabled ;
SpeedButton2.Enabled :=not SpeedButton2.Enabled ;
SpeedButton3.Enabled :=not SpeedButton3.Enabled ;
SpeedButton4.Enabled :=not SpeedButton4.Enabled ;
SpeedButton6.Enabled :=not SpeedButton6.Enabled ;
SpeedButton7.Enabled :=not SpeedButton7.Enabled ;
N1.Enabled :=not N1.Enabled ;
N2.Enabled :=not N2.Enabled ;
N3.Enabled :=not N3.Enabled ;
N4.Enabled :=not N4.Enabled ;
N5.Enabled :=not N5.Enabled ;
hui1.Enabled := not hui1.Enabled ;
save.Enabled :=not save.Enabled ;
end;
procedure TBM_ZHIYUANF.noedit;
begin
xingming.Enabled :=false;
cb1.Enabled :=false;
shengri.Enabled :=false;
jiguan.Enabled :=false;
//gongsi.Enabled :=false;
// bumen.Enabled :=false;
xueli.Enabled :=false;
zhicheng.Enabled :=false;
shenfen.Enabled :=false;
zhiwu.Enabled :=false;
memo.Enabled :=false;
email.Enabled :=false;
bangong.Enabled :=false;
zhuzhai.Enabled :=false;
shouji.Enabled :=false;
diaoru.Enabled :=false;
end;
procedure TBM_ZHIYUANF.yesedit;
begin
xingming.Enabled :=true;
cb1.Enabled :=true;
shengri.Enabled :=true;
jiguan.Enabled :=true;
// gongsi.Enabled :=true;
// bumen.Enabled :=true;
xueli.Enabled :=true;
zhicheng.Enabled :=true;
shenfen.Enabled :=true;
zhiwu.Enabled :=true;
memo.Enabled :=true;
email.Enabled :=true;
bangong.Enabled :=true;
zhuzhai.Enabled :=true;
shouji.Enabled :=true;
diaoru.Enabled :=true;
jichu.Enabled :=true;
gangwei.Enabled :=true;
jiaban.Enabled :=true;
xiaoyi.Enabled :=true;
diqu.Enabled :=true;
gongling.Enabled :=true;
heji.Enabled :=true;
end;
procedure TBM_ZHIYUANF.cls;
begin
//dbImage1.Picture.Assign(nil);
xingming.Text :='';
cb1.Text :='';
shengri.Text :='';
jiguan.Text :='';
gongsi.Text :='';
bumen.Text :='';
xueli.Text := '';
zhicheng.Text :='';
shenfen.Text :='';
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -