mainformunit.pas

很不错的软件请使用

begin
if (key=vk_f4) and ([ssalt]=shift) then key:=0;   //拒绝使用F4+ALT关闭窗体；
end;

procedure TMainform.ondockdrop(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer);
begin
ToolBar1.AutoSize:=false;
ToolBar1.Align:=altop; //为了便于拖拽，将toolbar1的宽度与coolbar1相近.
ToolBar1.Width:=CoolBar1.Width-1;
end;

procedure TMainform.ondragover(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept:=(source=ToolBar1);
end;

procedure TMainform.onundock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
ToolBar1.AutoSize:=true; //当元件一拖离dock site元件时，此事就会被执行
ToolBar1.Caption:='工具栏'; //设定独立工具栏窗口的大小和标题
end;

procedure TMainform.R1Click(Sender: TObject);
begin
Tlogin.create(mainform);
end;

procedure TMainform.N6Click(Sender: TObject);
begin
toolbutton2click(sender);
end;

procedure TMainform.A2Click(Sender: TObject);
begin
toolbutton3click(sender);
end;

procedure TMainform.A1Click(Sender: TObject);
begin
TAbout.create(mainform);
end;

procedure TMainform.ToolButton5Click(Sender: TObject);
begin
TPrintc.create(Mainform);
end;

procedure TMainform.H2Click(Sender: TObject);
begin
gethelp;
end;

procedure TMainform.P2Click(Sender: TObject);
begin
Toolbutton5click(sender);
end;

procedure TMainform.ToolButton4Click(Sender: TObject);
begin
TSearchs.create(mainform);
end;

procedure TMainform.S2Click(Sender: TObject);
begin
Toolbutton4click(sender);
end;

procedure TMainform.N7Click(Sender: TObject);
begin
Toolbutton9click(sender);
end;

procedure TMainform.ToolButton10Click(Sender: TObject);
begin
Toptionfrm.create(mainform);
end;

procedure TMainform.ToolButton6Click(Sender: TObject);
begin
gethelp;
end;

procedure TMainform.ToolButton7Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TMainform.N5Click(Sender: TObject);
begin
Toolbutton10click(sender);
end;

procedure TMainform.ToolButton2Click(Sender: TObject);
begin
Tpeople.create(mainform);
end;

procedure TMainform.ToolButton3Click(Sender: TObject);
begin
Tpeopledata.create(mainform);
end;

procedure TMainform.T1Click(Sender: TObject);
begin
t1.Checked:=not t1.Checked;
coolbar1.Visible:=t1.Checked;
end;

procedure TMainform.ToolButton9Click(Sender: TObject);
begin
TLoginwork.create(mainform);
end;

procedure TMainform.ToolButton1Click(Sender: TObject);
begin
r1.Enabled:=not mainform.r1.Enabled;
l1.Enabled:=not mainform.l1.Enabled;
E1.Visible:=not mainform.E1.Visible;
U1.Visible:=not mainform.U1.Visible;
p1.Visible:=not mainform.p1.Visible;
CoolBar1.Enabled:=not mainform.CoolBar1.Enabled;
l1.Caption:='注销()&L...';
StatusBar1.Panels[3].Text:='';
end;

procedure TMainform.L1Click(Sender: TObject);
begin
toolbutton1click(sender);
end;

procedure TMainform.Q1Click(Sender: TObject);
begin
close;
end;

{var
i,count:integer;
begin
progress:=TProgressbar.create(Mainform);
count:=3000; //进程条的最大值
statusbar1.repaint;
with progress do 
begin
top:=StatusDrawRect.top-1; 
left:=StatusDrawRect.left-1;
width:=StatusDrawRect.right-StatusDrawRect.left+2;
height:=StatusDrawRect.bottom-StatusDrawRect.top+2;
visible:=true; 
try 
Parent := statusbar1;
Min := 0; Max := Count;
Step:= 1;
for i := 1 to Count do
Stepit;
finally
Free;
end;
end; }

procedure TMainform.ToolButton13Click(Sender: TObject);
begin
TChartFrm.create(mainform);
end;

procedure TMainform.N9Click(Sender: TObject);
begin
ToolButton13Click(sender);
end;

procedure TMainform.Excel1Click(Sender: TObject);
var
eclApp,WorkBook:Variant;
i:integer;
//声明为OLE Automation 对象
xlsFileName:string;begin
xlsFileName:='noname.xls';
try
//创建OLE对象Excel Application与 WorkBook
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleobject('Excel.Sheet');
except
 MessageBox(Handle,'您的机器里未安装Microsoft Excel。','提示',MB_OK or MB_ICONinformation);
 exit;
end;
SaveDialog1.Title:='导出为...' ;
saveDialog1.Filter:='ExceL文件(*.xls)';
if SaveDialog1.Execute then
begin
xlsFileName:=SaveDialog1.FileName;
try
workBook:=eclApp.workBooks.Add;
eclApp.Cells(1,1):='编号';
eclApp.Cells(1,2):='身份证号';
eclApp.Cells(1,3):='姓名';
eclApp.Cells(1,4):='性别';
eclApp.Cells(1,5):='民族';
eclApp.Cells(1,6):='户籍地址';
eclApp.Cells(1,7):='工作单位';
eclApp.Cells(1,8):='婚否';
eclApp.Cells(1,9):='暂住地址';
eclApp.Cells(1,10):='暂住时间';
eclApp.Cells(1,11):='电话';
eclApp.Cells(1,12):='附注';
eclApp.Cells(1,13):='备注';
i:=2;
with adoquery1 do
 begin
 close;
 sql.clear;
 sql.Add('select * from MainDataTable');
 open;
 while not eof do
  begin
   eclApp.Cells(i,1):=FieldByName('编号').asstring;
   eclApp.Cells(i,2):=FieldByName('身份证号').asstring;
   eclApp.Cells(i,3):=FieldByName('姓名').asstring;
   eclApp.Cells(i,4):=FieldByName('性别').asstring;
   eclApp.Cells(i,5):=FieldByName('民族').asstring;
   eclApp.Cells(i,6):=FieldByName('户籍地址').asstring;
   eclApp.Cells(i,7):=FieldByName('工作单位').asstring;
   eclApp.Cells(i,8):=FieldByName('婚否').asstring;
   eclApp.Cells(i,9):=FieldByName('暂住地址').asstring;
   eclApp.Cells(i,10):=FieldByName('暂住时间').asstring;
   eclApp.Cells(i,10):=FieldByName('电话').asstring;
   eclApp.Cells(i,10):=FieldByName('附注').asstring;
   eclApp.Cells(i,10):=FieldByName('备注').asstring;
   i:=i+1;
   next;
  end;
 end;
WorkBook.saveas(xlsFileName);
WorkBook.close;
eclApp.Quit;//退出Excel Application//释放VARIANT变量
eclApp:=Unassigned;
except
 MessageBox(Handle,'不能正确操作Excel文件。可能是该文件已被其他程序打开,或系统错误。','提示',MB_OK or MB_ICONinformation);
WorkBook.close;
eclApp.Quit; //释放VARIANT变量
eclApp:=Unassigned;
end;
end;
end;

procedure TMainform.B1Click(Sender: TObject);
var
FromF,ToF:file;   // 声明无类型的文件对象
filefrom,fileto:string;
NumRead,NumWritten:Integer;
Buf: array[1..2048] of Char; // 定义缓冲区
begin
filefrom:=MainDataBasePath+'\'+MainDataBaseName;
fileto:=BackUpDatabasePath+'\'+BackUpDataBaseName;
AssignFile(FromF,filefrom) ;
Reset(FromF,1);
AssignFile(ToF,fileto) ;
Rewrite(ToF,1);
repeat
// 从源文件往缓冲区中读
BlockRead(FromF,Buf,SizeOf(Buf),NumRead);
// 从缓冲区中往目的文件中写
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);// 关闭源文件
CloseFile(ToF); // 关闭目的文件
MessageBox(Handle,pchar('备份成功！保存路径'+BackUpDatabasePath+'文件名'+BackUpDataBaseName),'提示',MB_OK or MB_ICONinformation);
exit;
end;

procedure TMainform.L2Click(Sender: TObject);
var
FromF,ToF:file;   // 声明无类型的文件对象
filefrom,fileto:string;
NumRead,NumWritten:Integer;
Buf: array[1..2048] of Char; // 定义缓冲区
begin
fileto:=MainDataBasePath+'\'+MainDataBaseName;
filefrom:=BackUpDatabasePath+'\'+BackUpDataBaseName;
AssignFile(FromF,filefrom) ;
Reset(FromF,1);
AssignFile(ToF,fileto) ;
Rewrite(ToF,1);
repeat
// 从源文件往缓冲区中读
BlockRead(FromF,Buf,SizeOf(Buf),NumRead);
// 从缓冲区中往目的文件中写
BlockWrite(ToF,Buf,NumRead,NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);// 关闭源文件
CloseFile(ToF); // 关闭目的文件
MessageBox(Handle,pchar('导入成功！备份数据库路径'+BackUpDatabasePath+'文件名'+BackUpDataBaseName),'提示',MB_OK or MB_ICONinformation);
exit;
end;

end.