📄 main.~pas

📁 文件包含程序源原文件
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, InvDef, ComCtrls, StdCtrls, IniFiles, ComObj,
  xlsConst, Math, Clipbrd, dpConst, InvPassword, ImgList, ToolWin;

type
  TfrmMain = class(TForm)
    PageCtrlInventory: TPageControl;
    tabsDaily: TTabSheet;
    TabSheet2: TTabSheet;
    ToolBar1: TToolBar;
    btnStockQuery: TToolButton;
    ToolButton2: TToolButton;
    btnUnFinishDelivery: TToolButton;
    ToolButton4: TToolButton;
    btnMoldInv: TToolButton;
    ToolButton6: TToolButton;
    btnMatIN: TToolButton;
    ToolButton8: TToolButton;
    btnMatOUT: TToolButton;
    ToolButton10: TToolButton;
    btnOtherIN: TToolButton;
    ToolButton12: TToolButton;
    btnOthMatOUT: TToolButton;
    ToolButton14: TToolButton;
    btnIOHistory: TToolButton;
    ToolButton16: TToolButton;
    btnReport: TToolButton;
    ToolButton18: TToolButton;
    btnRefresh: TToolButton;
    ToolButton20: TToolButton;
    BtnExit: TToolButton;
    ToolButton22: TToolButton;
    TabSheet1: TTabSheet;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    btnInvoice: TToolButton;
    ToolButton3: TToolButton;
    btnoeoe: TToolButton;
    ToolButton7: TToolButton;
    btnBOMCheck: TToolButton;
    ToolButton11: TToolButton;
    btnQCCheck: TToolButton;
    ToolButton15: TToolButton;
    ToolBar3: TToolBar;
    btnParams: TToolButton;
    ToolButton5: TToolButton;
    btnIOSetting: TToolButton;
    ToolButton13: TToolButton;
    btnGuageInfo: TToolButton;
    ToolButton19: TToolButton;
    btnPaperParamsDef: TToolButton;
    ToolButton24: TToolButton;
    btnMonthClose: TToolButton;
    ToolButton26: TToolButton;
    btnYearAnalyzer1: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    TabSheet3: TTabSheet;
    ToolBar4: TToolBar;
    btnUser: TToolButton;
    ToolButton9: TToolButton;
    btnDataExport: TToolButton;
    ToolButton23: TToolButton;
    btnHisReport: TToolButton;
    ToolButton27: TToolButton;
    LoginDate: TLabel;

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);

    procedure btnBOMCheckClick(Sender: TObject);
    procedure btnMatINClick(Sender: TObject);
    procedure btnMatOUTClick(Sender: TObject);
    procedure btnOthMatOUTClick(Sender: TObject);
    procedure btnIOHistoryClick(Sender: TObject);
    procedure btnReportClick(Sender: TObject);
    procedure btnInvoiceClick(Sender: TObject);

    procedure btnParamsClick(Sender: TObject);
    procedure btnIOSettingClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure btnGuageInfoClick(Sender: TObject);
    procedure btnPaperParamsDefClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure btnUnFinishDeliveryClick(Sender: TObject);
    procedure btnDataExportClick(Sender: TObject);
    procedure btnHisReportClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnOtherINClick(Sender: TObject);
    procedure btnMonthCloseClick(Sender: TObject);
    procedure btnUserClick(Sender: TObject);
    procedure btnMoldInvClick(Sender: TObject);
    procedure btnYearAnalyzerClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure btnQCCheck1Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure btnInvoice1Click(Sender: TObject);
    procedure btnBOMCheck1Click(Sender: TObject);
    procedure btnQCCheckClick(Sender: TObject);
    procedure btnoeoeClick(Sender: TObject);
    procedure btnParams1Click(Sender: TObject);
    procedure btnIOSetting1Click(Sender: TObject);
    procedure btnGuageInfo1Click(Sender: TObject);
    procedure btnPaperParamsDef1Click(Sender: TObject);
    procedure btnMonthClose1Click(Sender: TObject);
    procedure btnYearAnalyzer1Click(Sender: TObject);
    procedure ToolButton29Click(Sender: TObject);
    procedure btnUser1Click(Sender: TObject);
    procedure btnDataExport1Click(Sender: TObject);
    procedure btnHisReport1Click(Sender: TObject);



  private
    { Private declarations }
    procedure SetMultilingual;


  public
    { Public declarations }
    ExePath: string;
    IniData: TIniFileData;
    FUserID: Double;
    FDefStkID: String;
    FLoginUserPrivilege: TUserPrivilege;

    Procedure InitlizeIniData;
    Procedure FinalWriteIniData;

    procedure PrintProc(frmName: string);
    procedure settingUserFunction;



  end;

var
  frmMain: TfrmMain;



implementation

uses InvBomCheck, InvQuery, MatIN, MatOUT,
     OtherIn, OtherMatOut, InvHistory,
     InvoiceList, InvSetParams, InvIOID,
     InvReport, Inv_UnDeliveryOnTime, PaperParamsDef, MatGuageInfo, InvDM,
     InvDataExpImp, InvHisReport, InSuplier, InvUserPrivilege, OutInvSelect,
     InvAccount, InvMoldStk, InvAccountAge, InvMoldExpense;

{$R *.dfm}


//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Top := 0;
  Left := 0;
  Height := Height;
  Width  := Screen.Width-(Width - ClientWidth);

  SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, PChar('yy/MM/dd'));

  MulitiLingalList := TList.Create;
  ExePath := ParamStr(0);

  InitlizeIniData;
  LoginDate.Caption:= FormatDatetime('yyyy/mm/dd hh:mm',Now);
  PageCtrlInventory.ActivePageIndex := 0;
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  if IniData.is_bomcheck then btnBOMCheck.Enabled := true
  else btnBOMCheck.Enabled := false;
  btnBOMCheck.Enabled   := false;
  btnMonthClose.Enabled := true;
  btnDataExport.Enabled := false;
  btnQCCheck.Enabled    := false;
  SetMultilingual;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //FinalWriteIniData;
  Action := CaFree;
  Application.Terminate;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
//
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnBOMCheckClick(Sender: TObject);
var
  frmBomCheck: TfrmBomCheck;
begin
  Screen.Cursor := crSqlWait;
  frmBomCheck := TfrmBomCheck.Create(Self);
  with frmBomCheck do
  begin
    frmBomCheck.Show;
  end;
  Screen.Cursor := crDefault;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnMoldInvClick(Sender: TObject);
var
  frmMoldInv: TfrmMoldInv;
begin
  Screen.Cursor := crSqlWait;
  frmMoldInv := TfrmMoldInv.Create(Self);
  with frmMoldInv do
  begin
    frmMoldInv.Show;
  end;
  Screen.Cursor := crDefault;//
end;

//////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnMatINClick(Sender: TObject);
var
  frmInSuplier: TfrmInSuplier;
  frmMatIN: TfrmMatIN;
begin
  if not(IniData.isCheckQty) then
  begin
    frmInSuplier := TfrmInSuplier.Create(self);
    frmInSuplier.InWinLogin    := 1;
    frmInSuplier.ShowModal;
    if frmInSuplier.ModalResult = mrOK then
    begin
      frmMatIN := TfrmMatIN.Create(self);
      with frmMatIN do begin
        frmMatIN.default_suplier    := trunc(frmInSuplier.edtSuplierCode.Value);
        frmMatIN.default_issuepaper := trim(frmInSuplier.edtIssPaperNO.Text);
        frmMatIN.default_IOID       := trim(frmInSuplier.edtIOID.Text);
        frmMatIN.default_InManID    := trim(frmInSuplier.edtManID.Text);
        frmMatIN.default_stkid      := trim(frmInSuplier.edtStkID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnMatOUTClick(Sender: TObject);
var
  frmOutInvSelect: TfrmOutInvSelect;
  frmMatOUT: TfrmMatOUT;
begin
  if not(IniData.isCheckQty) then
  begin
    frmOutInvSelect := TfrmOutInvSelect.Create(self);
    frmOutInvSelect.OutWinLogin    := 1;
    frmOutInvSelect.ShowModal;
    if frmOutInvSelect.ModalResult = mrOK then
    begin
      frmMatOUT := TfrmMatOUT.Create(self);
      with frmMatOUT do begin
        frmMatOUT.default_stkid        := trim(frmOutInvSelect.edtStkID.Text);
        frmMatOUT.default_isspaper     := trim(frmOutInvSelect.edtIssPaperNO.Text);
        frmMatOUT.default_ioid         := trim(frmOutInvSelect.edtIOID.Text);
        frmMatOUT.default_outmanid     := trim(frmOutInvSelect.edtManID.Text);
        frmMatOUT.default_receivemanid := trim(frmOutInvSelect.edtReceiveEmpID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.btnOtherINClick(Sender: TObject);
var
  frmInSuplier: TfrmInSuplier;
  frmOtherIn: TfrmOtherIn;
begin
  if not(IniData.isCheckQty) then
  begin
    frmInSuplier := TfrmInSuplier.Create(self);
    frmInSuplier.InWinLogin    := 2;    
    frmInSuplier.ShowModal;
    if frmInSuplier.ModalResult = mrOK then
    begin
      frmOtherIn := TfrmOtherIn.Create(self);
      with frmOtherIn do begin
        frmOtherIn.default_suplier    := trunc(frmInSuplier.edtSuplierCode.Value);
        frmOtherIn.default_issuepaper := trim(frmInSuplier.edtIssPaperNO.Text);
        frmOtherIn.default_IOID       := trim(frmInSuplier.edtIOID.Text);
        frmOtherIn.default_InManID    := trim(frmInSuplier.edtManID.Text);
        frmOtherIn.default_stkid      := trim(frmInSuplier.edtStkID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnOthMatOUTClick(Sender: TObject);
var
  frmOutInvSelect: TfrmOutInvSelect;
  frmOtherMatOut: TfrmOtherMatOut;
begin
  if not(IniData.isCheckQty) then
  begin
    frmOutInvSelect := TfrmOutInvSelect.Create(self);
    frmOutInvSelect.OutWinLogin    := 2;
    frmOutInvSelect.ShowModal;
    if frmOutInvSelect.ModalResult = mrOK then
    begin
      frmOtherMatOut := TfrmOtherMatOut.Create(self);
      with frmOtherMatOut do begin
        frmOtherMatOut.default_stkid        := trim(frmOutInvSelect.edtStkID.Text);
        frmOtherMatOut.default_isspaper     := trim(frmOutInvSelect.edtIssPaperNO.Text);
        frmOtherMatOut.default_ioid         := trim(frmOutInvSelect.edtIOID.Text);
        frmOtherMatOut.default_outmanid     := trim(frmOutInvSelect.edtManID.Text);
        frmOtherMatOut.default_receivemanid := trim(frmOutInvSelect.edtReceiveEmpID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnIOHistoryClick(Sender: TObject);
var
  frmInvHistory: TfrmInvHistory;
begin
  Screen.Cursor := crSqlWait;
  frmInvHistory := TfrmInvHistory.Create(Self);
  with frmInvHistory do
  begin
    frmInvHistory.Show;
  end;
  Screen.Cursor := crDefault;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnReportClick(Sender: TObject);
var frmReport: TfrmReport;
begin
  Screen.Cursor := crSqlWait;
  frmReport := TfrmReport.Create(Self);
  with frmReport do
  begin
    frmReport.Show;
  end;
  Screen.Cursor := crDefault;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnInvoiceClick(Sender: TObject);
var
  frmInvoiceList: TfrmInvoiceList;
begin
  Screen.Cursor := crSqlWait;
  frmInvoiceList := TfrmInvoiceList.Create(Self);
  with frmInvoiceList do
  begin
    frmInvoiceList.Show;
  end;
  Screen.Cursor := crDefault;
end;

//////////////////////////////////////////////////////////////////////////
procedure TfrmMain.btnParamsClick(Sender: TObject);
var
  frmParams: TfrmParams;
begin
  frmParams := TfrmParams.Create(Self);
  with frmParams do
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -