intounit.pas

贸易管理系统Delphi源代码（有开发文档） 采用access+delphi设计 软件实现功能：供应商信息的输入

unit intounit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  Tintofrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  intofrm: Tintofrm;
  name:string;

implementation

uses datamoduleUnit, main, aboutboxunit,  customermsunit,
   goodsunit, infindunit,  managerunit,
  salefindunit,   supplyunit;

{$R *.dfm}

procedure Tintofrm.BitBtn2Click(Sender: TObject);
begin
intofrm.Close;
end;

procedure Tintofrm.BitBtn1Click(Sender: TObject);
begin
  if  edit1.Text=datamodule2.ADSid.Lookup('Username',combobox1.Text,'Password') then
     begin
       mainfrm.Show;
       intofrm.Visible:=false;
       mainfrm.StatusBar1.Panels[0].Text:='       操作员：  '+combobox1.text;
       mainfrm.StatusBar1.Panels[1].Text:='       程序设计：  可视之窗小组';
       mainfrm.StatusBar1.Panels[2].Text:='      '+datetostr(now);
     end
  else
     showmessage('error!');
end;
procedure Tintofrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=char(13) then
  bitbtn1.SetFocus;
end;

end.