maingl.pas

来自「公司ERP系统」· PAS 代码 · 共 65 行

unit maingl;

interface

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

type
  TMainForm = class(TForm)
    Oe1Btn: TSpeedButton;
    Oe2Btn: TSpeedButton;
    ImBtn: TSpeedButton;
    Database1: TDatabase;
    IvBtn: TSpeedButton;
    ExitBtn: TSpeedButton;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    UpdateProgram1: TMenuItem;
    NotUpdateProgram1: TMenuItem;
    ArBtn: TSpeedButton;
    LBLUpdate: TLabel;
    PoBtn: TSpeedButton;
    Label1: TLabel;
    XmBtn: TSpeedButton;
    GlBtn: TSpeedButton;

    procedure Oe1BtnClick(Sender: TObject);
    procedure Run_main(vExe_file: string);
    procedure ImBtnClick(Sender: TObject);
    procedure Oe2BtnClick(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 refreshLblUpdate;
    procedure ArBtnClick(Sender: TObject);
    procedure PoBtnClick(Sender: TObject);
    procedure Read_pwd;
    procedure XmBtnClick(Sender: TObject);
    procedure GlBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm           : TMainForm;
  gUser_id, gPassword, gPwd: string;
  gUpdate            : Boolean = True;
implementation

uses pilib97{,pwdkey}, pipwd;

{$R *.DFM}

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