?? intounit.~pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -