?? main.~pas

?? 退休資料查詢!我公司離退老干部數(shù)據(jù)管理!基于ACCESS數(shù)據(jù)庫,提供了一個數(shù)據(jù)庫壓縮的源碼和導(dǎo)出為EXCEL功能!
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
      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       //如果回車就響應(yīng)查詢按鈕的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.NREditKeyPress(Sender: TObject; var Key: Char);
begin       //如果回車就響應(yīng)查詢按鈕的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.NEWButtonClick(Sender: TObject);
begin       //新建數(shù)據(jù)庫資料按鈕
  FORM1.suiEdit2.Text:='系統(tǒng)自動加入';
  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       //加入數(shù)據(jù)庫記錄按鈕
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('記錄內(nèi)容不能為空');
  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('對不起!不在錄入模式不可以添加數(shù)據(jù)',MTWARNING,MBOKCANCEL,0);
end;

procedure TForm1.DELButtonClick(Sender: TObject);
begin         //數(shù)據(jù)庫資料刪除按鈕
IF ToolButton2.Down THEN
  adotable1.Delete
ELSE
  MESSAGEDLG('對不起!不在錄入模式不可以刪除數(shù)據(jù)',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       //如果收到回車就執(zhí)行添加按鈕
  if ord(key)=13 then Form1.SUIedit9.SetFocus;
end;

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

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

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

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

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

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


/////////////////////////////////////////////////////////
{設(shè)定窗體的字體為宋體，字符集為GB2312}
////////////////對界面部分進(jìn)行設(shè)置///////////////////////
procedure TForm1.XP1Click(Sender: TObject);
begin      //設(shè)置界面顯示模式為XP
  FORM1.XP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(2);
end;

procedure TForm1.MAC1Click(Sender: TObject);
begin      //設(shè)置界面顯示模式為MAC
  FORM1.MAC1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(1);
end;

procedure TForm1.DEEP1Click(Sender: TObject);
begin      //設(shè)置界面顯示模式為DEEP
  FORM1.DEEP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(3);
end;
/////////////////////////////////////////////////////////
/////////////對菜單部分進(jìn)行處理///////////////////
procedure TForm1.N11Click(Sender: TObject);
begin
 suiButton2Click(suiButton2);
end;

procedure TForm1.N3Click(Sender: TObject);
begin         //關(guān)于

end;

procedure TForm1.N4Click(Sender: TObject);
begin         //關(guān)于
  ShellAbout(Application.MainForm.Handle,
             '%東港電力有限公司退休職工資料查詢系統(tǒng)%',
             'Copyright (c) 2003 http://10.160.75.50',
             Application.Icon.Handle);
end;

procedure TForm1.N5Click(Sender: TObject);
begin        //網(wǎng)址連接  (幫助)
  //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:='東港電力公司 版權(quán)所有';
   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
//導(dǎo)出
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,'');   //壓縮數(shù)據(jù)庫
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 退養(yǎng)('+
'序號 counter PRIMARY KEY,'+
'姓名 char(10),'+
'性別 char(10),'+
'民族 char(10),'+
'身份證號 char(20),'+
'電話 char(15),'+
'家庭住址 char(40),'+
'退休時間 char(30),'+
'月退休養(yǎng)老金 char(30),'+
'身體狀況 char(15),'+
'親屬姓名 char(10),'+
'親屬性別 char(20),'+
'關(guān)系 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.
上一頁 12
?? 文件大小 535 K
?? 上傳用戶 WOKAORIPI
?? 所屬分類其他數(shù)據(jù)庫
??? 相關(guān)標(biāo)簽

#ACCESS #EXCEL #數(shù)據(jù)庫 #查詢
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main.~pas

?? 快捷鍵說明
