unit3.pas

利用Acess数据库

  overdue.show;
end;

procedure TInputForm.BitBtn4Click(Sender: TObject);


begin
  with tablelast do
  begin
    prior;
    edit21.Text:=fields[0].AsString;
    edit1.Text:=fields[1].AsString;
    edit2.Text:=fields[2].AsString;
    edit3.Text:=fields[3].AsString;

    edit4.Text:=fields[4].AsString;
    edit5.Text:=fields[5].AsString;
    edit6.Text:=fields[6].AsString;
    edit7.Text:=fields[7].AsString;
    edit8.Text:=fields[8].AsString;
    combobox2.Text:=fields[9].AsString;

    edit9.Text:=fields[10].AsString;
    combobox1.Text:=fields[11].AsString;
    edit10.Text:=fields[12].AsString;
    edit11.Text:=fields[13].AsString;
    edit15.Text:=fields[14].AsString;
    edit12.Text:=fields[15].AsString;
    edit16.Text:=fields[16].AsString;
    edit13.Text:=fields[17].AsString;
    edit17.Text:=fields[18].AsString;
    edit14.Text:=fields[19].AsString;
    edit18.Text:=fields[20].AsString;
    edit19.Text:=fields[21].AsString;
    combobox3.Text:=fields[24].AsString;
    edit20.Text:=fields[25].AsString;
end;
end;

procedure TInputForm.FormShow(Sender: TObject);
begin
   tablelast.Last;
end;

procedure TInputForm.BitBtn5Click(Sender: TObject);
begin
  tablelast.Last;
  with tablelast do
  begin
    edit21.Text:=fields[0].AsString;
    edit1.Text:=fields[1].AsString;
    edit2.Text:=fields[2].AsString;
    edit3.Text:=fields[3].AsString;

    edit4.Text:=fields[4].AsString;
    edit5.Text:=fields[5].AsString;
    edit6.Text:=fields[6].AsString;
    edit7.Text:=fields[7].AsString;
    edit8.Text:=fields[8].AsString;
    combobox2.Text:=fields[9].AsString;

    edit9.Text:=fields[10].AsString;
    combobox1.Text:=fields[11].AsString;
    edit10.Text:=fields[12].AsString;
    edit11.Text:=fields[13].AsString;
    edit15.Text:=fields[14].AsString;
    edit12.Text:=fields[15].AsString;
    edit16.Text:=fields[16].AsString;
    edit13.Text:=fields[17].AsString;
    edit17.Text:=fields[18].AsString;
    edit14.Text:=fields[19].AsString;
    edit18.Text:=fields[20].AsString;
    edit19.Text:=fields[21].AsString;
    edit20.Text:=fields[25].AsString;
    combobox3.Text:=fields[24].AsString;
end;
end;

procedure TInputForm.BitBtn3Click(Sender: TObject);
begin
  tablelast.edit;
  Tablelast.setfields([edit21.text,edit1.text,edit2.text,edit3.text,edit4.text,
  edit5.text,edit6.text,edit7.text,edit8.text,combobox2.text,edit9.text,
  combobox1.text,edit10.text,edit11.text,edit15.text,edit12.text,
  edit16.text, edit13.text,edit17.text,edit14.text,edit18.text,edit19.text,datetimetostr(now),login.logname,combobox3.text,edit20.text]);
  tablelast.post;
  tablelast.Refresh;
  showmessage('修改完毕！');
end;

procedure TInputForm.BitBtn6Click(Sender: TObject);
begin
  if messageDlg ('确定要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
  with Tablelast do
  begin
    Delete;
    refresh;
  end;
end;

procedure TInputForm.BitBtn7Click(Sender: TObject);
begin
   with tablelast do
   begin
    next;
    edit21.Text:=fields[0].AsString;
    edit1.Text:=fields[1].AsString;
    edit2.Text:=fields[2].AsString;
    edit3.Text:=fields[3].AsString;

    edit4.Text:=fields[4].AsString;
    edit5.Text:=fields[5].AsString;
    edit6.Text:=fields[6].AsString;
    edit7.Text:=fields[7].AsString;
    edit8.Text:=fields[8].AsString;
    combobox2.Text:=fields[9].AsString;

    edit9.Text:=fields[10].AsString;
    combobox1.Text:=fields[11].AsString;
    edit10.Text:=fields[12].AsString;
    edit11.Text:=fields[13].AsString;
    edit15.Text:=fields[14].AsString;
    edit12.Text:=fields[15].AsString;
    edit16.Text:=fields[16].AsString;
    edit13.Text:=fields[17].AsString;
    edit17.Text:=fields[18].AsString;
    edit14.Text:=fields[19].AsString;
    edit18.Text:=fields[20].AsString;
    edit19.Text:=fields[21].AsString;
    combobox3.Text:=fields[24].AsString;
    edit20.Text:=fields[25].AsString;
end;
end;

procedure TInputForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
  edit2.SetFocus;
end;

procedure TInputForm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit3.SetFocus;
end;

procedure TInputForm.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit5.SetFocus;
end;

procedure TInputForm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit4.SetFocus;
end;

procedure TInputForm.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit6.SetFocus;
end;

procedure TInputForm.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit7.SetFocus;
end;

procedure TInputForm.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit8.SetFocus;
end;

procedure TInputForm.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 combobox2.SetFocus;
end;

procedure TInputForm.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=VK_return then
 edit9.SetFocus;
end;

procedure TInputForm.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 combobox1.SetFocus;
end;

procedure TInputForm.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit10.SetFocus;
end;

procedure TInputForm.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit11.SetFocus;
end;

procedure TInputForm.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit15.SetFocus;
end;

procedure TInputForm.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit12.SetFocus;
end;

procedure TInputForm.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit16.SetFocus;
end;

procedure TInputForm.Edit16KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit13.SetFocus;
end;

procedure TInputForm.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit17.SetFocus;
end;

procedure TInputForm.Edit17KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=VK_return then
 edit14.SetFocus;
end;

procedure TInputForm.Edit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_return then
 edit18.SetFocus;
end;

procedure TInputForm.Edit18KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_return then
 edit19.SetFocus;
end;

procedure TInputForm.Edit19KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 edit20.SetFocus;

end;

procedure TInputForm.Edit20KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_return then
 combobox3.SetFocus;
end;

procedure TInputForm.N11Click(Sender: TObject);
begin
 f_trafficin.show;
end;

procedure TInputForm.FormCreate(Sender: TObject);
begin
 tablelast.open;
end;

end.