main.pas

退休资料查询!我公司离退老干部数据管理!基于ACCESS数据库,提供了一个数据库压缩的源码和导出为EXCEL功能!

      FORM2.edit4.Text:=ADOTable1.Fields[3].AsString ;
      FORM2.edit5.Text:=ADOTable1.Fields[4].AsString ;
      FORM2.edit6.Text:=ADOTable1.Fields[5].AsString ;
      FORM2.edit7.Text:=ADOTable1.Fields[6].AsString ;
      FORM2.edit8.Text:=ADOTable1.Fields[7].AsString ;
      FORM2.edit9.Text:=ADOTable1.Fields[8].AsString ;
      FORM2.edit10.Text:=ADOTable1.Fields[9].AsString ;
      FORM2.edit11.Text:=ADOTable1.Fields[10].AsString ;
      FORM2.edit12.Text:=ADOTable1.Fields[11].AsString ;
      FORM2.edit13.Text:=ADOTable1.Fields[12].AsString ;
      FORM2.edit14.Text:=ADOTable1.Fields[13].AsString ;
      FORM2.edit15.Text:=ADOTable1.Fields[14].AsString ;
   end
   else
      FORM2.suiGroupBox1.CAPTION:='查询失败';
end;
if QSNAMERadio.Checked then
 begin
  sn:=QSNAMEedit.text;
  if ADOTable1.Locate('亲属电话',sn,[loCaseInsensitive]) then
  begin
      FORM2.suiGroupBox1.CAPTION:='查询成功';
      FORM2.Top:=DBGrid1.Top;
      FORM2.Left:=DBGrid1.Left;
      FORM2.SHOW;
      //a:=ADOTable1.Seek('点地址',edit3.text);
      FORM2.edit1.Text:=ADOTable1.Fields[0].AsString ;
      FORM2.edit2.Text:=ADOTable1.Fields[1].AsString ;
      FORM2.edit3.Text:=ADOTable1.Fields[2].AsString ;
      FORM2.edit4.Text:=ADOTable1.Fields[3].AsString ;
      FORM2.edit5.Text:=ADOTable1.Fields[4].AsString ;
      FORM2.edit6.Text:=ADOTable1.Fields[5].AsString ;
      FORM2.edit7.Text:=ADOTable1.Fields[6].AsString ;
      FORM2.edit8.Text:=ADOTable1.Fields[7].AsString ;
      FORM2.edit9.Text:=ADOTable1.Fields[8].AsString ;
      FORM2.edit10.Text:=ADOTable1.Fields[9].AsString ;
      FORM2.edit11.Text:=ADOTable1.Fields[10].AsString ;
      FORM2.edit12.Text:=ADOTable1.Fields[11].AsString ;
      FORM2.edit13.Text:=ADOTable1.Fields[12].AsString ;
      FORM2.edit14.Text:=ADOTable1.Fields[13].AsString ;
      FORM2.edit15.Text:=ADOTable1.Fields[14].AsString ;
  end
  else
      FORM2.suiGroupBox1.CAPTION:='查询失败';
end;
end;

procedure TForm1.ADDRadioClick(Sender: TObject);
begin        //切换查询模式
  NRedit.Enabled :=false;
  DHedit.Enabled :=false;
  QSNAMEedit.Enabled :=false;
  ADDedit.Enabled :=true;
  ADDedit.Text:='';
  ADDEDIT.SetFocus;
end;

procedure TForm1.NRRadioClick(Sender: TObject);
begin        //切换查询模式
  ADDedit.Enabled :=false;
  DHedit.Enabled :=false;
  QSNAMEedit.Enabled :=false;
  NRedit.Enabled :=true;
  NRedit.Text:='';
  NREDIT.SetFocus;
end;

procedure TForm1.DHRadioClick(Sender: TObject);
begin
  ADDedit.Enabled :=false;
  QSNAMEedit.Enabled :=false;
  NRedit.Enabled :=false;
  DHedit.Enabled :=TRUE;
  DHedit.Text:='';
  DHEDIT.SetFocus;
end;

procedure TForm1.QSNAMERadioClick(Sender: TObject);
begin
  ADDedit.Enabled :=false;
  NRedit.Enabled :=false;
  DHedit.Enabled :=false;
  QSNAMEedit.Enabled :=TRUE;
  QSNAMEedit.Text:='';
  QSNAMEEDIT.SetFocus;
end;

procedure TForm1.ADDEditKeyPress(Sender: TObject; var Key: Char);
begin       //如果回车就响应查询按钮的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.NREditKeyPress(Sender: TObject; var Key: Char);
begin       //如果回车就响应查询按钮的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.NEWButtonClick(Sender: TObject);
begin       //新建数据库资料按钮
  FORM1.suiEdit2.Text:='系统自动加入';
  Form1.SUIedit3.text:='';
  Form1.SUIedit4.text:='';
  Form1.SUIedit5.text:='空';
  Form1.SUIedit6.text:='空';
  Form1.SUIedit7.text:='空';
  Form1.SUIedit8.text:='空';
  Form1.SUIedit9.text:='空';
  Form1.SUIedit10.text:='00.00';
  Form1.SUIedit11.text:='空';
  Form1.SUIedit12.text:='空';
  Form1.SUIedit13.text:='空';
  Form1.SUIedit14.text:='空';
  Form1.SUIedit15.text:='空';
  Form1.SUIedit16.text:='空';
  Form1.SUIedit3.SetFocus
end;

procedure TForm1.ADDButtonClick(Sender: TObject);
begin       //加入数据库记录按钮
IF ToolButton2.Down THEN
BEGIN
if (Form1.SUIedit5.text='') or (Form1.SUIedit6.text='')
   or (Form1.SUIedit7.text='') or (Form1.SUIedit8.text='')
   or (Form1.SUIedit3.text='') or (Form1.SUIedit4.text='')
  then begin
   showmessage('记录内容不能为空');
  end
else
  WITH FORM1.ADOTable1 DO
  BEGIN
    Insert;
    //Inc(NO);
    //Append;
    //Fields[0].AsString:=Inttostr(NO)//;
    Fields[1].AsString:=Form1.SUIedit3.Text;
    Fields[2].AsString:=Form1.SUIedit4.Text;
    Fields[3].AsString:=Form1.SUIedit5.Text;
    Fields[4].AsString:=Form1.SUIedit6.Text;
    Fields[5].AsString:=Form1.SUIedit7.Text;
    Fields[6].AsString:=Form1.SUIedit8.Text;
    Fields[7].AsString:=Form1.SUIedit9.Text;
    Fields[8].AsString:=Form1.SUIedit10.Text;
    Fields[9].AsString:=Form1.SUIedit11.Text;
    Fields[10].AsString:=Form1.SUIedit12.Text;
    Fields[11].AsString:=Form1.SUIedit13.Text;
    Fields[12].AsString:=Form1.SUIedit14.Text;
    Fields[13].AsString:=Form1.SUIedit15.Text;
    Fields[14].AsString:=Form1.SUIedit16.Text;
    Next;
    //Post;
  END;
END
ELSE
  MESSAGEDLG('对不起!不在录入模式不可以添加数据',MTWARNING,MBOKCANCEL,0);
end;

procedure TForm1.DELButtonClick(Sender: TObject);
begin         //数据库资料删除按钮
IF ToolButton2.Down THEN
  adotable1.Delete
ELSE
  MESSAGEDLG('对不起!不在录入模式不可以删除数据',MTWARNING,MBOKCANCEL,0);
end;

procedure TForm1.suiEdit3KeyPress(Sender: TObject; var Key: Char);
begin         //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit4.SetFocus;
end;

procedure TForm1.suiEdit4KeyPress(Sender: TObject; var Key: Char);
begin         //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit5.SetFocus;
end;

procedure TForm1.suiEdit5KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit6.SetFocus;
end;

procedure TForm1.suiEdit6KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit7.SetFocus;
end;

procedure TForm1.suiEdit7KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit8.SetFocus;
end;

procedure TForm1.suiEdit8KeyPress(Sender: TObject; var Key: Char);
begin       //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit9.SetFocus;
end;

procedure TForm1.suiEdit10KeyPress(Sender: TObject; var Key: Char);
begin       //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit11.SetFocus;
end;

procedure TForm1.suiEdit11KeyPress(Sender: TObject; var Key: Char);
begin        //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit12.SetFocus;
end;

procedure TForm1.suiEdit12KeyPress(Sender: TObject; var Key: Char);
begin        //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit13.SetFocus;
end;

procedure TForm1.suiEdit13KeyPress(Sender: TObject; var Key: Char);
begin          //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit14.SetFocus;
end;

procedure TForm1.suiEdit14KeyPress(Sender: TObject; var Key: Char);
begin          //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.SUIedit15.SetFocus;
end;

procedure TForm1.suiEdit16KeyPress(Sender: TObject; var Key: Char);
begin           //如果收到回车就执行添加按钮
  if ord(key)=13 then
  begin
    Form1.ADDButtonClick(Form1.ADDButton);
    Form1.SUIedit3.SetFocus;
  end;
end;


/////////////////////////////////////////////////////////
{设定窗体的字体为宋体，字符集为GB2312}
////////////////对界面部分进行设置///////////////////////
procedure TForm1.XP1Click(Sender: TObject);
begin      //设置界面显示模式为XP
  FORM1.XP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(2);
end;

procedure TForm1.MAC1Click(Sender: TObject);
begin      //设置界面显示模式为MAC
  FORM1.MAC1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(1);
end;

procedure TForm1.DEEP1Click(Sender: TObject);
begin      //设置界面显示模式为DEEP
  FORM1.DEEP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(3);
end;
/////////////////////////////////////////////////////////
/////////////对菜单部分进行处理///////////////////
procedure TForm1.N11Click(Sender: TObject);
begin
 suiButton2Click(suiButton2);
end;

procedure TForm1.N3Click(Sender: TObject);
begin         //关于

end;

procedure TForm1.N4Click(Sender: TObject);
begin         //关于
  ShellAbout(Application.MainForm.Handle,
             '%东港电力有限公司退休职工资料查询系统%',
             'Copyright (c) 2003 http://10.160.75.50',
             Application.Icon.Handle);
end;

procedure TForm1.N5Click(Sender: TObject);
begin        //网址连接  (帮助)
  //ShellExecute(Handle, 'open', 'http://10.160.76.50', nil, nil, SW_SHOW);
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
  CLOSE;
end;

procedure TForm1.N7Click(Sender: TObject);
begin       //退出
  CLOSE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   suiStatusBar1.Panels[0].text:='东港电力公司 版权所有';
   suiStatusBar1.Panels[1].text:=DateToStr(Date);
   suiStatusBar1.Panels[2].text:=TimeToStr(Time());
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
IF ToolButton2.Caption='录入模式' THEN ToolButton2.Down:=TRUE;
  ToolButton2.Down:=NOT (ToolButton2.Down);
IF ToolButton2.Down THEN
BEGIN
  ToolButton2.Caption:='录入模式';
  //NEWButtonClick(NEWButton);
  ToolButton2.ImageIndex:=7;
  FORM1.N10.CHECKED:=TRUE;
    FORM1.ADOTable1.Close;
  FORM1.ADOTable1.ReadOnly:=False;
  FORM1.ADOTable1.Open;
END
ELSE
BEGIN
  ToolButton2.Caption:='查询模式';
  ToolButton2.ImageIndex:=6;
  FORM1.N9.CHECKED:=TRUE;
  FORM1.ADOTable1.Close;
  FORM1.ADOTable1.ReadOnly:=true;
  FORM1.ADOTable1.Open;
END;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
FORM1.N9.CHECKED:=TRUE;
ToolButton2.Caption:='查询模式';
ToolButton2.ImageIndex:=6;
ToolButton2.Down:=FALSE;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
FORM1.N10.CHECKED:=TRUE;
ToolButton2.Caption:='录入模式';
ToolButton2.ImageIndex:=7;
ToolButton2.Down:=TRUE;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
 Form1.N4Click(Form1.N4);
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Form1.suiButton2Click(Form1.suiButton2);
end;

procedure TForm1.N13Click(Sender: TObject);
begin
//导出
Form1.ToolButton6Click(Form1.ToolButton6);
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
var
NewName:string;
begin
SaveDialog1.FileName:='*.mdb';
  if SaveDialog1.Execute then
      NewName:=SaveDialog1.FileName;
CreateAccessFile(NewName,'');  //建立
CompactDatabase(NewName,'');   //压缩数据库
end;

procedure TForm1.SetupTable(sender:tobject);
Var
adocon1:TADOConnection;
strSQL:string;
Const
SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
begin
adocon1:=TADOConnection.create(self);
adocon1.ConnectionString:=format(SConnectionString,[ExtractFilePath(application.ExeName)+myaccess,'']);
strsql:='Create table 退养('+
'序号 counter PRIMARY KEY,'+
'姓名 char(10),'+
'性别 char(10),'+
'民族 char(10),'+
'身份证号 char(20),'+
'电话 char(15),'+
'家庭住址 char(40),'+
'退休时间 char(30),'+
'月退休养老金 char(30),'+
'身体状况 char(15),'+
'亲属姓名 char(10),'+
'亲属性别 char(20),'+
'关系 char(30),'+
'工作单位 char(15),'+
'亲属电话 char(10),'+
'备注 char(255))';
adocon1.Execute(strsql);
adocon1.close;
adocon1.free;
end;


procedure TForm1.ToolButton7Click(Sender: TObject);
begin
//showmessage('不好意思!功能尚未编写!');
Form3.show;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
   DBGrid1.Top:= suiPageControl1.Top+180;
   DBGrid1.Width:= NewWidth -32;
   DBGrid1.Height:= NewHeight -300;
   SuiStatusBar1.Panels[0].Width:=  NewWidth-150;
end;



procedure TForm1.N14Click(Sender: TObject);
begin
  ToolButton7Click(ToolButton7);
end;

end.