?? bm_telu.pas
字號:
unit BM_TELU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, db,ExtCtrls, ComCtrls, Menus, ImgList,
Buttons;
type
TBM_TELF = class(TForm)
Panel1: TPanel;
StatusBar1: TStatusBar;
TreeView1: TTreeView;
Splitter1: TSplitter;
Panel2: TPanel;
ImageList2: TImageList;
ImageList1: TImageList;
pmOperate: TPopupMenu;
N_insert: TMenuItem;
N_delete: TMenuItem;
N_edit: TMenuItem;
N_cancel: TMenuItem;
N_save: TMenuItem;
N7: TMenuItem;
N_refresh: TMenuItem;
Panel3: TPanel;
add: TSpeedButton;
del2: TSpeedButton;
save: TSpeedButton;
fresh: TSpeedButton;
closeme: TSpeedButton;
edit: TSpeedButton;
hui1: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel6: TPanel;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
DBEdit13: TDBEdit;
Label14: TLabel;
DBEdit14: TDBEdit;
OpenDialog1: TOpenDialog;
DBImage1: TDBImage;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TreeView1Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure addClick(Sender: TObject);
procedure del2Click(Sender: TObject);
procedure editClick(Sender: TObject);
procedure hui1Click(Sender: TObject);
procedure saveClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure closemeClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
Node_Parent: TTreeNode; //存儲父節點
Node_Child: TTreeNode; //存儲當前節點
b_pd: bool; //用于判斷點擊的是添加還是編輯
//在添加、編輯和瀏覽狀態互置按鈕的有效性
procedure button_valid;
procedure refreshTree;
procedure noedit;
procedure yesedit;
procedure cls;
procedure saveimage;
procedure loadimage;
public
{ Public declarations }
end;
var
BM_TELF: TBM_TELF;
AORE:boolean;
implementation
uses BM_DMU;
{$R *.dfm}
procedure TBM_TELF.button_valid;
begin
DBEDIT1.Enabled := NOT DBEDIT1.Enabled ;
DBEDIT2.Enabled := NOT DBEDIT2.Enabled ;
DBEDIT3.Enabled := NOT DBEDIT3.Enabled ;
DBEDIT4.Enabled := NOT DBEDIT4.Enabled ;
DBEDIT5.Enabled := NOT DBEDIT5.Enabled ;
DBEDIT6.Enabled := NOT DBEDIT6.Enabled ;
DBEDIT7.Enabled := NOT DBEDIT7.Enabled ;
DBEDIT8.Enabled := NOT DBEDIT8.Enabled ;
DBEDIT9.Enabled := NOT DBEDIT9.Enabled ;
DBEDIT10.Enabled := NOT DBEDIT10.Enabled ;
DBEDIT11.Enabled := NOT DBEDIT11.Enabled ;
DBEDIT12.Enabled := NOT DBEDIT12.Enabled ;
DBEDIT13.Enabled := NOT DBEDIT13.Enabled ;
DBEDIT14.Enabled := NOT DBEDIT14.Enabled ;
SpeedButton6.Enabled :=not SpeedButton6.Enabled ;
SpeedButton7.Enabled :=not SpeedButton7.Enabled ;
add.Enabled := not add.Enabled ;
del2.Enabled := not del2.Enabled ;
edit.Enabled :=not edit.Enabled ;
hui1.Enabled := not hui1.Enabled ;
save.Enabled :=not save.Enabled ;
fresh.Enabled :=not fresh.Enabled ;
end;
procedure TBM_TELF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TBM_TELF.refreshTree;
var
mynode_1, mynode_2, mynode_3: Ttreenode;
s_bm_1, s_bm_2, s_bm_3: string;
s_mc_1, s_mc_2, s_mc_3: string;
begin
DM.address.Active := True;
treeview1.Items.clear;
mynode_1 := Treeview1.Items.Add(Treeview1.topitem, '北明通訊錄');
mynode_1.imageindex := 0;
mynode_1.stateindex := -1;
mynode_1.selectedindex := 1;
DM.address.indexfieldnames := '電話編號';
DM.address.First;
while not DM.address.Eof do
begin
s_bm_1 := DM.address.fieldbyname('電話編號').asstring;
s_mc_1 := DM.address.fieldbyname('名稱').asstring;
if length(trim(s_bm_1)) = 2 then
begin
mynode_2 := Treeview1.items.addchild(mynode_1, '[' + s_bm_1 + '] ' + s_mc_1);
mynode_2.imageindex := 0;
mynode_2.stateindex := -1;
mynode_2.selectedindex := 1;
end;
if length(trim(s_bm_1)) = 5 then
begin
mynode_3 := Treeview1.items.addchild(mynode_2, '[' + s_bm_1 + '] ' + s_mc_1);
mynode_3.imageindex := 0;
mynode_3.stateindex := -1;
mynode_3.selectedindex := 1;
end;
DM.address.next;
end;
end;
procedure TBM_TELF.TreeView1Click(Sender: TObject);
var
mynode: Ttreenode;
s_value_1: string;
begin
if Treeview1.Items.Count = 0 then
exit;
mynode := Treeview1.selected;
//如果是在目錄樹的第一級，代表是第一級部門，它的部門編碼只有兩位
if mynode.Level = 1 then
begin
//從目錄樹的節點標題中，提取部門編碼
s_value_1 := copy(mynode.text, 2, 2);
//DM.BUMEN.IndexFieldNames := '部門編碼';
//DM.BUMEN.findkey([s_value_1]);
DM.ADDRESS.Locate('電話編號',s_value_1,[]);
DM.ADDRESS.FieldByName('電話編號').editmask := '99;1;_';
end;
if mynode.Level = 2 then
begin
//從目錄樹的節點標題中，提取部門編碼
s_value_1 := copy(mynode.text, 2, 5);
DM.address.Locate('電話編號',s_value_1,[]);
DM.address.FieldByName('電話編號').editmask := '99-999;1;_';
end;
loadimage;
end;
procedure TBM_TELF.SpeedButton6Click(Sender: TObject);
begin
OpenDialog1.Execute ;
if OpenDialog1.FileName<>'' then dbimage1.Picture.LoadFromFile(OpenDialog1.FileName );
end;
procedure TBM_TELF.addClick(Sender: TObject);
var
gs_global: string; //存儲添加的父節點標題；
begin
b_pd := true;
Node_Parent := Treeview1.selected;
if Node_Parent.level = 2 then
begin
Application.messagebox('最底層不能添加，請在上層添加', '物資管理系統', mb_iconinformation + mb_defbutton1);
exit;
end;
//設置按扭的有效性
button_valid;
if Node_Parent.level = 0 then
begin
DM.ADDRESS.Insert;
DM.ADDRESS.FieldByName('電話編號').editmask := '99;1;_';
DBEdit1.setfocus;
end;
if Node_Parent.level = 1 then
begin
gs_global := copy(Node_Parent.text, 2, 2);
DM.address.insert;
DM.address.FieldByName('電話編號').editmask := '99-99;1;_';
DBEdit1.setfocus;
DBEdit1.text := gs_global;
end;
end;
procedure TBM_TELF.del2Click(Sender: TObject);
var
mynode: Ttreenode;
i:integer;
bm:string;
begin
mynode := Treeview1.selected;
//根目錄不須刪除
if mynode.level = 0 then exit;
//如果刪除的是第二級目錄
if mynode.level = 2 then
begin
if DM.ADDRESS.recordcount <> 0 then
begin
if Application.messagebox('請確認是否要刪除?', '北明辦公管理系統', mb_iconinformation + mb_yesno) = idyes then
begin
DM.ADDRESS.Delete;
DM.ADDRESS.UpdateBatch();
Treeview1.Items.delete(mynode);
end;
end
else
begin
Application.messagebox('已無記錄可刪除', '北明辦公管理系統', mb_iconinformation + mb_defbutton1);
exit;
end;
EXIT;
end;
//如果刪除是第一級目錄，還得刪除第二級目錄
if mynode.level = 1 then
begin
// dm.BUMEN.Close;
with dm.QALL do
begin
close;
sql.Clear ;
sql.Add('select * from 通訊錄 where 電話編碼 like "' +copy(mynode.text, 2, 2)+'%"');
open;
first;
if Application.messagebox('請確認是否要刪除及包括的子目錄?', '北明辦公管理系統', mb_iconinformation + mb_yesno) = idyes then
begin
for i:=0 to recordcount-1 do
begin
bm:=dm.QALL.fieldbyname('電話編碼').AsString ;
with dm.QALL3 do
begin
close;
sql.Clear ;
sql.Add('delete from 通訊錄 where 電話編碼="'+bm+'"');
ExecSQL;
end;
next;
end;
Treeview1.Items.delete(mynode);
dm.ADDRESS.Close ;
dm.ADDRESS.Open ;
end;
end;
end;
end;
procedure TBM_TELF.editClick(Sender: TObject);
begin
b_pd := false;
Node_Child := Treeview1.selected;
if Node_Child.level = 0 then
begin
Application.messagebox('最頂層不能編輯，請在下層編輯', '物資管理系統', mb_iconinformation + mb_defbutton1);
exit;
end;
//設置按扭有效性
button_valid;
Node_Parent := Node_Child.parent;
if Node_Parent.level = 0 then
begin
DM.ADDRESS.edit;
DM.ADDRESS.FieldByName('電話編號').editmask := '99;1;_';
end;
if Node_Parent.level = 1 then
begin
DM.ADDRESS.edit;
DM.ADDRESS.FieldByName('電話編號').editmask := '99-99;1;_';
end;
end;
procedure TBM_TELF.hui1Click(Sender: TObject);
begin
DM.address.cancel;
button_valid;
end;
procedure TBM_TELF.saveClick(Sender: TObject);
var
s_bm, s_mc: string;
begin
if Node_Parent.level = 0 then
begin
if length(trim(DBEdit1.text)) <> 2 then
begin
Application.messagebox('編碼應為兩位', '北明辦公管理系統', mb_iconinformation + mb_defbutton1);
exit;
end;
end;
if Node_Parent.level = 1 then
begin
if copy(DBEdit1.text, 1, 2) <> copy(Node_Parent.text, 2, 2) then
begin
Application.messagebox('前面兩位不能變，請確認!', '北明辦公管理系統', mb_iconinformation + mb_defbutton1);
DBEdit1.text := copy(Node_Parent.text, 2, 2);
exit;
end;
if length(trim(DBEdit1.text)) <> 5 then
begin
Application.messagebox('編碼應為五位', '北明辦公管理系統', mb_iconinformation + mb_defbutton1);
exit;
end;
end;
s_bm := DBEdit1.text;
s_mc := DBEdit2.text;
DM.ZHIGONG.Open ;
DM.ZHIGONG.Refresh;
// if DM.ADDRESS.state = dsinsert then
// begin
if DM.ZHIGONG.Locate('部門編碼',s_bm,[]) then
begin
application.MessageBox('部門編碼已重復', '北明辦公管理系統', mb_iconinformation + mb_defbutton1);
DBEdit1.SetFocus;
exit;
end;
// end;
//判斷是添加數據的保存還是編輯數據保存
if b_pd = true then
Treeview1.items.addchild(Node_Parent, '(' + s_bm + ') ' + s_mc)
else
Node_Child.Text := '(' + s_bm + ') ' + s_mc;
saveimage;
DM.address.post;
DM.address.UpdateBatch();
DM.address.Refresh;
//設置按扭的有效性
button_valid;
end;
procedure TBM_TELF.FormShow(Sender: TObject);
begin
with DM do
begin
ADDRESS.Active := True;
ZHIGONG.Active :=TRUE;
end;
refreshTree;
Treeview1.topitem.Selected := true;
end;
procedure TBM_TELF.SpeedButton7Click(Sender: TObject);
begin
dbImage1.Picture.Assign(nil);
end;
procedure TBM_TELF.cls;
begin
end;
procedure TBM_TELF.loadimage;
var
bmp:TBitmap;
begin
try
bmp := Tbitmap.Create;
bmp.Assign(dm.address.Fields[10]);
dbImage1.Picture.Bitmap:=bmp;
finally
bmp.Free;
end;
end;
procedure TBM_TELF.noedit;
begin
end;
procedure TBM_TELF.saveimage;
var
MyJPEG : Tbitmap;
MS: TMemoryStream;
begin
MyJPEG := Tbitmap.Create;
try
with MyJPEG do
begin
Assign(dbImage1.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
TBlobField(dm.address.FieldbyName('照片')).LoadFromStream(MS);
end;
finally
MyJPEG.Free;
end;
end;
procedure TBM_TELF.yesedit;
begin
end;
procedure TBM_TELF.closemeClick(Sender: TObject);
begin
close;
end;
procedure TBM_TELF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -