moduleunit1.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 91 行

unit ModuleUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, OutlookBtn, EHGrids, DBGridEh;

type
  TModuleForm1 = class(TForm)
    DBGridEh1: TDBGridEh;
    OutlookBtn1: TOutlookBtn;
    OutlookBtn2: TOutlookBtn;
    OutlookBtn3: TOutlookBtn;
    OutlookBtn4: TOutlookBtn;
    ModuleDatabase: TDatabase;
    ModuleDataSource: TDataSource;
    ModuleQuery1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure OutlookBtn1Click(Sender: TObject);
    procedure OutlookBtn3Click(Sender: TObject);
    procedure OutlookBtn2Click(Sender: TObject);
    procedure OutlookBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MTTN,selectname:string;
    pf:integer;
  end;

var
  ModuleForm1: TModuleForm1;

implementation

uses PasswordUnit, main;

{$R *.DFM}

procedure TModuleForm1.FormCreate(Sender: TObject);
var
  MDAN:string;
begin
  MDAN:='guohua';                             //ODBC_库名
  MTTN:=mainfm.selecttabname;                       //ODBC_表名
  selectname:=mainfm.selectname;
  ModuleDatabase.AliasName:=MDAN;
  ModuleDatabase.Params.Text:='USER NAME=sa';
  ModuleDatabase.LoginPrompt:=False;
  ModuleDatabase.Connected:=True;
  ModuleQuery1.Close;
  ModuleQuery1.SQL.Clear;
  ModuleQuery1.SQL.Add('select * from '+MTTN+'');
  ModuleQuery1.Open;
  DBGridEh1.Columns[0].Width:=213;
  DBGridEh1.Columns[1].Width:=213;
  DBGridEh1.Columns[2].Width:=213;
end;

procedure TModuleForm1.OutlookBtn1Click(Sender: TObject);
begin
  pf:=1;
  Application.CreateForm(TPassword,Password);
  Password.ShowModal;
end;

procedure TModuleForm1.OutlookBtn3Click(Sender: TObject);
begin
  pf:=2;
  Application.CreateForm(TPassword,Password);
  Password.ShowModal;
end;

procedure TModuleForm1.OutlookBtn2Click(Sender: TObject);
begin
  pf:=3;
  Application.CreateForm(TPassword,Password);
  Password.ShowModal;
end;

procedure TModuleForm1.OutlookBtn4Click(Sender: TObject);
begin
  ModuleDatabase.Connected:=False;
  ModuleForm1.Release;
  //ModuleQuery1.Close;
  ModuleForm1.Close;
end;

end.