unit3.pas

利用Acess数据库

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, ImgList, ToolWin, Menus, Buttons, Db,
  DBTables, Grids, DBGrids;

type
  TInputForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    ComboBox1: TComboBox;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    N7: TMenuItem;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label14: TLabel;
    Edit21: TEdit;
    N8: TMenuItem;
    N9: TMenuItem;
    Query2: TQuery;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Tablelast: TTable;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label16: TLabel;
    BitBtn7: TBitBtn;
    Label17: TLabel;
    Edit20: TEdit;
    N10: TMenuItem;
    N11: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit17KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit20KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InputForm: TInputForm;
  maxnumber:longint;
  daima:string;

implementation
uses
unit2,unit1,unit7, Unit8, Unit4,traffic;
{$R *.DFM}

procedure TInputForm.BitBtn1Click(Sender: TObject);
var i:integer;
begin
  with query1 do
  begin
  close;
  sql.Clear;
  sql.add('select max(单位代码) from company');
  open;
  end;
  maxnumber:=query1.fields[0].asinteger;
  maxnumber:=maxnumber+1;
  for i:=0 to componentCount-1 do
  if (Components[i] is Tedit) and (Tedit(Components[i]).Tag<>100) and (Tedit(Components[i]).Text='') then
  Tedit(Components[i]).Text:='暂无记录';
  if  combobox1.Text='' then combobox1.Text:='暂无记录';
  edit21.Text:='000'+inttostr(maxnumber);
  Tablelast.AppendRecord([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]);
  showmessage('提交完毕!');
end;

procedure TInputForm.BitBtn2Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to componentCount-1 do
  if (Components[i] is Tedit) and (Tedit(Components[i]).Tag<>100) then
  Tedit(Components[i]).Text:='';

  combobox2.Text:='';
  combobox1.Text:='';
  combobox3.Text:='1';

end;

procedure TInputForm.N6Click(Sender: TObject);
begin
  change.Show;
end;

procedure TInputForm.N2Click(Sender: TObject);
begin
  inputform.close;
  superform.Close;
  normal.Close;
  login.show;
end;

procedure TInputForm.N7Click(Sender: TObject);
begin
  normal.Show;
end;

procedure TInputForm.ToolButton6Click(Sender: TObject);
begin
  inputform.N6click(sender);
end;

procedure TInputForm.ToolButton1Click(Sender: TObject);
begin
  inputform.N2click(sender);
end;

procedure TInputForm.N4Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TInputForm.ToolButton2Click(Sender: TObject);
begin
  inputform.N4click(sender);
end;

procedure TInputForm.ToolButton3Click(Sender: TObject);
begin
  n7click(sender);
end;

procedure TInputForm.N9Click(Sender: TObject);
begin
  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;
   with query1 do
  begin
  close;
  sql.Clear;
  sql.add('select max(单位代码) from company');
  open;
  end;
  maxnumber:=query1.fields[0].asinteger;
  maxnumber:=maxnumber+1;
  edit21.Text:='000'+inttostr(maxnumber);
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.