mainrm.~pa

公司ERP系统

// Delphi Code Arrange Expert - (Unregisted verion)
// Please contact with Wolfgang Chien <[e-mail]>
// or http://www.chih.com/download/ca.html to get the license key. 
// ---------------------------------------------------------------
unit MainRm;

interface

uses
  Fmxutils, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, DBTables, ExtCtrls, Menus;

type
  TMainRmForm = class(TForm)
    Database1: TDatabase;
    ExitBtn: TSpeedButton;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    UpdateProgram1: TMenuItem;
    NotUpdateProgram1: TMenuItem;
    LBLUpdate: TLabel;
    PoBtn: TSpeedButton;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;

    procedure OeBtn1Click(Sender: TObject);
    procedure Run_main(vExe_file: string);
    procedure ImBtnClick(Sender: TObject);
    procedure OeBtn2Click(Sender: TObject);
    procedure Database1Login(Database: TDatabase;
      LoginParams: TStrings);
    procedure FormShow(Sender: TObject);
    procedure IvBtnClick(Sender: TObject);
    procedure ExitBtnClick(Sender: TObject);
    procedure UpdateProgram1Click(Sender: TObject);
    procedure NotUpdateProgram1Click(Sender: TObject);
    procedure LBLUpdateClick(Sender: TObject);
    procedure BtnSa2Click(Sender: TObject);
    procedure refreshLblUpdate;
    procedure BtnARClick(Sender: TObject);
    procedure btno3mainClick(Sender: TObject);
    procedure PoBtnClick(Sender: TObject);
    procedure SrBtnClick(Sender: TObject);
    procedure Read_pwd;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end; {_ TMainForm = class(TForm) _}

var
  MainRmForm           : TMainRmForm;
  gUser_id, gPassword, gPwd: string;
  gUpdate            : Boolean = True;
implementation

uses pilib97{,pwdkey}, pipwd;

{$R *.DFM}

procedure TMainRmForm.refreshLblUpdate;
begin
  if gUpdate then LBLUpdate.CAPTION := '