mainpa.pas

公司ERP系统

unit mainpa;

interface

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

type
  TMainpaForm = class(TForm)
    ImBtn: TSpeedButton;
    Database1: TDatabase;
    ExitBtn: TSpeedButton;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    UpdateProgram1: TMenuItem;
    NotUpdateProgram1: TMenuItem;
    Label1: TLabel;
    ssuserQuery: TQuery;
    ttvermTable: TTable;
    procedure Run_main(vExe_file:String);
    procedure ImBtnClick(Sender: TObject);
    procedure Database1Login(Database: TDatabase;
              LoginParams: TStrings);
    procedure FormShow(Sender: TObject);
    procedure ExitBtnClick(Sender: TObject);
    procedure UpdateProgram1Click(Sender: TObject);
    procedure NotUpdateProgram1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainpaForm: TMainpaForm;
  gUser_id, gPassword, gUser_name : String;
  gUpdate : Boolean = True;
implementation

uses pipwd, pread;

{$R *.DFM}


procedure TMainpaForm.Run_main(vExe_file:String);
var
  Fromfile , ToFile, ToFilePath : string;
  source : integer;
  FromDateTime, ToDateTime : string;
begin
  Fromfile := 'Y:\pidpr\ttmis\pub\proj\' + vExe_file;
  if not FileExists(Fromfile) then
  begin
    Fromfile := 'X:\pidpr\ttmis\pub\proj\' + vExe_file;
    if not FileExists(Fromfile) then
       gUpdate := False;
  end;

  ToFile   := 'C:\pidpr\ttmis\pub\proj\' + vExe_file;
  ToFilePath := 'C:\pidpr\ttmis\pub\proj';
  ToDateTime := ' ';
  Fromdatetime := DateTimeToStr(filedatetodatetime( fileage(Fromfile)));
  if fileexists(ToFile) then
     Todatetime := DateTimeToStr(filedatetodatetime( fileage(Tofile)));
  if gUpdate then
  begin
    //if not (FromDateTime = ToDateTime) then
    if (FromDateTime > ToDateTime) then
    begin
      if MessageDlg('瞷