main_o.pas

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

unit main;

interface

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

type
  TMainForm = class(TForm)
    OeBtn1: TSpeedButton;
    OeBtn2: TSpeedButton;
    ImBtn: TSpeedButton;
    Database1: TDatabase;
    IvBtn: TSpeedButton;
    ExitBtn: TSpeedButton;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    UpdateProgram1: TMenuItem;
    NotUpdateProgram1: TMenuItem;

    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

uses pipwd;

{$R *.DFM}


procedure TMainForm.OeBtn1Click(Sender: TObject);
begin
    OeBtn1.Enabled := False;
    Run_main('oemainx.exe');
    OeBtn1.Enabled := True;
end;
procedure TMainForm.Run_main(vExe_file:String);
var
  Fromfile , ToFile, ToFilePath : string;
  source : integer;
  FromDateTime, ToDateTime : string;
begin
  Fromfile := 'F:\pidpr\ttmis\pub\proj\' + vExe_File;
  if not FileExists(Fromfile) then
  begin
     showmessage(FromFile + 'ぃ