亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? main.~pas

?? 文件包含程序源原文件
?? ~PAS
?? 第 1 頁 / 共 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

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
成人av电影在线观看| 亚洲免费电影在线| 国产精品初高中害羞小美女文| 亚洲综合色区另类av| 国产一区二区三区免费看| 欧美色爱综合网| 亚洲视频一二三| 91麻豆国产福利精品| 欧美性感一类影片在线播放| wwww国产精品欧美| 奇米综合一区二区三区精品视频| 色综合天天综合狠狠| 18涩涩午夜精品.www| 不卡的电视剧免费网站有什么| www激情久久| 国模大尺度一区二区三区| 久久尤物电影视频在线观看| 久久国产日韩欧美精品| 精品盗摄一区二区三区| 精品一区二区三区在线观看| 欧美一级二级在线观看| 黄页视频在线91| 中文字幕欧美区| 91蜜桃视频在线| 亚洲福利视频导航| 精品美女在线播放| 欧洲精品在线观看| 亚洲va国产天堂va久久en| 日韩欧美一区电影| 成人午夜私人影院| 亚洲国产裸拍裸体视频在线观看乱了| 欧美午夜精品理论片a级按摩| 亚洲成人精品一区二区| 日韩免费视频线观看| gogo大胆日本视频一区| 日韩成人一级大片| 怡红院av一区二区三区| 精品国精品国产| 欧美亚洲一区三区| 成人小视频在线| 免费观看在线综合| 一区二区三区欧美激情| 久久亚洲综合色| 欧美一区二区在线看| 9久草视频在线视频精品| 久久美女艺术照精彩视频福利播放 | 乱一区二区av| 亚洲国产欧美在线| 国产女人水真多18毛片18精品视频| 欧美午夜寂寞影院| 91免费在线看| 成人高清视频在线观看| 狠狠狠色丁香婷婷综合久久五月| 亚洲一级二级三级| 亚洲精品乱码久久久久久黑人| 久久久久久久久蜜桃| 欧美v日韩v国产v| 欧美三级在线视频| 欧美午夜精品电影| 欧美日韩激情一区二区| 欧美亚洲国产一区在线观看网站| 成人黄色在线网站| 成人18视频日本| 91偷拍与自偷拍精品| 一本一道综合狠狠老| 色综合久久天天| 色94色欧美sute亚洲线路二| 色婷婷亚洲婷婷| 91黄色免费版| 日韩欧美高清一区| 国产亚洲一区字幕| 中文字幕一区日韩精品欧美| 亚洲成人一区在线| 国产精品18久久久久久久久 | 99久久国产综合精品色伊| av欧美精品.com| 色先锋久久av资源部| 色综合天天综合网天天狠天天| 欧美性一二三区| 国产一区二区三区免费看| 国产真实乱偷精品视频免| 国产成人av资源| 欧美怡红院视频| 日韩美女天天操| 亚洲综合激情另类小说区| 人人爽香蕉精品| 日本丶国产丶欧美色综合| 欧美一区二区三区色| 成人欧美一区二区三区在线播放| 午夜国产精品一区| jlzzjlzz亚洲日本少妇| 91精品国产综合久久久久| 中文字幕中文字幕一区| 精品在线播放免费| 欧美高清www午色夜在线视频| 国产精品高潮呻吟久久| 另类调教123区 | 视频精品一区二区| 成人av小说网| 亚洲国产精品成人综合| 男男视频亚洲欧美| 色婷婷亚洲精品| 亚洲激情av在线| av一二三不卡影片| 国产精品黄色在线观看| 岛国精品在线观看| 久久综合九色综合久久久精品综合| 亚洲123区在线观看| 欧美在线观看一区二区| 午夜精品视频一区| 欧美色爱综合网| 亚洲一二三四在线| 97se亚洲国产综合自在线观| 欧美韩国日本不卡| 99v久久综合狠狠综合久久| 国产精品水嫩水嫩| 99re视频精品| 亚洲午夜在线视频| 5858s免费视频成人| 久久av中文字幕片| 国产精品日韩精品欧美在线| 日本大胆欧美人术艺术动态| 国产99一区视频免费| 久久精品欧美日韩精品| 北岛玲一区二区三区四区| 亚洲欧洲一区二区在线播放| 欧美在线你懂的| 国产一区二区精品久久99| 亚洲视频免费观看| 日韩欧美国产一区二区在线播放| 国产成人免费视| 亚洲成人av电影在线| 久久精品欧美一区二区三区不卡| 99re在线精品| 国产一区二区三区免费看| 亚洲免费在线观看| 精品国产免费人成在线观看| 欧洲精品视频在线观看| 国产河南妇女毛片精品久久久| 一区二区免费在线| 国产欧美日韩在线观看| 91精品国产丝袜白色高跟鞋| www.久久精品| 久久99国产精品麻豆| 亚洲一区二区三区自拍| 国产精品久久久久一区| 精品第一国产综合精品aⅴ| 欧洲精品视频在线观看| 色久综合一二码| av在线一区二区三区| 精品在线视频一区| 日本va欧美va瓶| 日本午夜精品视频在线观看| 一区二区三区欧美| 亚洲一区二区欧美| 亚洲国产精品久久久久秋霞影院| 1区2区3区精品视频| 亚洲综合成人网| 亚洲一区免费观看| 一区二区欧美精品| 婷婷久久综合九色综合绿巨人| 亚洲一区欧美一区| 蜜桃视频免费观看一区| 久久不见久久见免费视频7| 乱一区二区av| www.亚洲免费av| a在线欧美一区| 在线观看一区二区视频| 欧美精品久久99久久在免费线| 欧美日韩国产美女| 欧美一区二区三区四区视频| 欧美在线免费播放| 欧美一级国产精品| 欧美激情一区二区三区蜜桃视频| 亚洲色欲色欲www| 午夜免费久久看| 国产高清亚洲一区| 99亚偷拍自图区亚洲| 欧美一区二区三区色| 国产精品日韩成人| 青青草伊人久久| av一本久道久久综合久久鬼色| 欧美色精品在线视频| 国产欧美综合色| 亚洲成a人片综合在线| 成人h动漫精品一区二区| 欧美久久久久久久久| 中文字幕日韩一区| 狠狠v欧美v日韩v亚洲ⅴ| 欧美伊人久久久久久久久影院| 久久久久国产成人精品亚洲午夜| 亚洲第一成年网| 色琪琪一区二区三区亚洲区| 国产亚洲综合在线| 国产乱淫av一区二区三区| 这里只有精品视频在线观看| 亚洲影视在线播放| 色婷婷国产精品| 综合久久综合久久| 91尤物视频在线观看|