?? set_user_pas.pas
字號:
unit set_user_pas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, pub_frm_pas, jpeg, ExtCtrls, ImgList, ComCtrls, ToolWin,
DBCtrls, Grids, DBGrids;
type
Tset_user = class(Tpub_frm)
Image1: TImage;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
DBGrid1: TDBGrid;
Panel6: TPanel;
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
set_user: Tset_user;
implementation
uses
main_dm_pas;
var
main_dm:Tmain_dm;
{$R *.dfm}
procedure Tset_user.FormCreate(Sender: TObject);
begin
inherited;
main_dm:=Tmain_dm.Create(self);
main_dm.gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
main_dm.adq1.Close;
main_dm.adq1.SQL.Clear;
main_dm.adq1.SQL.Add('select username as 用戶名,usercode as 用戶代碼,userpm as 用戶拼音碼 from system_user1');
main_dm.adq1.Prepared;
dbgrid1.DataSource :=main_dm.DataSource1;
dbnavigator1.DataSource :=main_dm.DataSource1;
main_dm.adq1.Open;
dbgrid1.Columns[0].Width :=180;
dbgrid1.Columns[1].Width :=140;
dbgrid1.Columns[2].Width :=160;
end;
procedure Tset_user.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
main_dm.Free;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -