?? untmain.~pas

?? delphi7,源代碼主要的是進行DELPHI7的源代碼進行管理和維護
?? ~PAS
?? 第 1 頁 / 共 3 頁
字號:
12 3 下一頁
{*******************************************************}
{                                                       }
{       單元名稱: UntMain                               }
{       創建日期: 2007-08-01                            }
{       摘要說明: 系統界面主窗口                        }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 洪漢輝                                }
{       Copyright (C) 2007 FdAuto                       }
{       當前版本: 2.3                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntMain;

{==========================================================================
                        單元接口部分
==========================================================================}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, XPMenu, StdCtrls, Grids, DBGrids,
  Buttons, ImgList, ToolWin, DBCtrls, CoolTrayIcon, Clipbrd,
  SynEdit, SynMemo, SynEditor, SynEditHighlighter, SynHighlighterPas,
  SynEditActions, ActnList, StdActns;

type
  TFormMain = class(TForm)
    PgcMain: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    StatBar: TStatusBar;
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PanelLeft: TPanel;
    PanelLTop: TPanel;
    ComboType: TComboBox;
    ListFunc: TListBox;
    PanelRight: TPanel;
    PanelType: TPanel;
    Panel1: TPanel;
    SBtnDelType: TSpeedButton;
    SBtnEditType: TSpeedButton;
    SBtnAddType: TSpeedButton;
    ListType: TListBox;
    PanelFunc: TPanel;
    Panel2: TPanel;
    SBtnDelFunc: TSpeedButton;
    SBtnEditFunc: TSpeedButton;
    SBtnAddFunc: TSpeedButton;
    DBGridFunc: TDBGrid;
    Panel3: TPanel;
    Label2: TLabel;
    EditUses: TEdit;
    Panel4: TPanel;
    Splitter1: TSplitter;
    Panel5: TPanel;
    MemRemark: TMemo;
    V1: TMenuItem;
    EdtType: TEdit;
    EdtKey: TEdit;
    SBtnSearch: TSpeedButton;
    Splitter2: TSplitter;
    Splitter3: TSplitter;
    Timer2: TTimer;
    SBtnAll: TSpeedButton;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButtonFunc: TToolButton;
    ToolButtonLib: TToolButton;
    ToolButtonLink: TToolButton;
    ToolButtonAbout: TToolButton;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    ToolButtonAdd: TToolButton;
    ToolButton7: TToolButton;
    EditFKey: TEdit;
    SBtnFSearch: TSpeedButton;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ToolButtonBAK: TToolButton;
    N8: TMenuItem;
    DBNavFunc: TDBNavigator;
    ChkBox: TCheckBox;
    ToolBtnComP: TToolButton;
    Timer3: TTimer;
    PopupMenu1: TPopupMenu;
    NAdd: TMenuItem;
    NShow: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    PopupMenu2: TPopupMenu;
    NCopy: TMenuItem;
    NAll: TMenuItem;
    N17: TMenuItem;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel6: TPanel;
    Splitter4: TSplitter;
    Panel7: TPanel;
    Label1: TLabel;
    EditUses2: TEdit;
    CheckBoxTip: TCheckBox;
    Panel8: TPanel;
    Panel9: TPanel;
    MemoTip: TMemo;
    Panel10: TPanel;
    Panel11: TPanel;
    SBtSearchTip: TSpeedButton;
    ComboTipType: TComboBox;
    EditTipKey: TEdit;
    ListTip: TListBox;
    Splitter5: TSplitter;
    Panel12: TPanel;
    Panel13: TPanel;
    SBtnDelTips: TSpeedButton;
    SBtnEditTips: TSpeedButton;
    SbtnAddTip: TSpeedButton;
    SBtnSearchTips: TSpeedButton;
    SBtnAllTips: TSpeedButton;
    EditKeyTips: TEdit;
    DBNavigatorTips: TDBNavigator;
    DBGridTips: TDBGrid;
    Panel14: TPanel;
    Panel15: TPanel;
    SBtnDelTipType: TSpeedButton;
    SBtnEditTipType: TSpeedButton;
    SBtnAddTipType: TSpeedButton;
    EditTipType: TEdit;
    ListTipType: TListBox;
    Splitter6: TSplitter;
    TBtnTipsView: TToolButton;
    TBtnTips: TToolButton;
    TBtnAddTips: TToolButton;
    N4: TMenuItem;
    N18: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    ActionList1: TActionList;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SBtnAddFuncClick(Sender: TObject);
    procedure SBtnEditFuncClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure ListTypeClick(Sender: TObject);
    procedure ComboTypeChange(Sender: TObject);
    procedure SBtnAddTypeClick(Sender: TObject);
    procedure SBtnDelTypeClick(Sender: TObject);
    procedure SBtnEditTypeClick(Sender: TObject);
    procedure SBtnDelFuncClick(Sender: TObject);
    procedure SBtnSearchClick(Sender: TObject);
    procedure ComboTypeDropDown(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ListFuncClick(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ShowFunc(PID,St: integer);
    procedure ShowFuncD(PID,St: integer);
    procedure ListFuncDblClick(Sender: TObject);
    procedure SBtnAllClick(Sender: TObject);
    procedure EdtKeyClick(Sender: TObject);
    procedure MemRemarkDblClick(Sender: TObject);
    procedure ToolButtonFuncClick(Sender: TObject);
    procedure ToolButtonLibClick(Sender: TObject);
    procedure ToolButtonLinkClick(Sender: TObject);
    procedure EditFKeyClick(Sender: TObject);
    procedure SBtnFSearchClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure DBGridFuncTitleClick(Column: TColumn);
    procedure DBGridFuncDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure TabSheet2Exit(Sender: TObject);
    procedure EditUsesDblClick(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure CoolTrayIcon1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ChkBoxClick(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure PopupMenu2Popup(Sender: TObject);
    procedure MemoFuncDblClick(Sender: TObject);
    procedure TBtnAddTipsClick(Sender: TObject);
    procedure TBtnTipsViewClick(Sender: TObject);
    procedure TBtnTipsClick(Sender: TObject);
    procedure SBtSearchTipClick(Sender: TObject);
    procedure ComboTipTypeChange(Sender: TObject);
    procedure ComboTipTypeDropDown(Sender: TObject);
    procedure ListTipClick(Sender: TObject);
    procedure ListTipDblClick(Sender: TObject);
    procedure MemoTipDblClick(Sender: TObject);
    procedure EditTipKeyClick(Sender: TObject);
    procedure EditUses2DblClick(Sender: TObject);
    procedure ListTipTypeClick(Sender: TObject);
    procedure SBtnAddTipTypeClick(Sender: TObject);
    procedure SBtnEditTipTypeClick(Sender: TObject);
    procedure SBtnDelTipTypeClick(Sender: TObject);
    procedure SBtnEditTipsClick(Sender: TObject);
    procedure SBtnDelTipsClick(Sender: TObject);
    procedure EditKeyTipsClick(Sender: TObject);
    procedure SBtnSearchTipsClick(Sender: TObject);
    procedure SBtnAllTipsClick(Sender: TObject);
    procedure DBGridTipsDblClick(Sender: TObject);
    procedure DBGridTipsDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGridTipsTitleClick(Column: TColumn);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet4Exit(Sender: TObject);
    procedure CheckBoxTipClick(Sender: TObject);
    procedure NAddClick(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure TimerEnable(Tg : integer);
    procedure FormShow(Sender: TObject);
    procedure RichEditTipDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FM                : integer;
  end;

var
  FormMain          : TFormMain;
  IDList            : Tstrings;
  IDTipList         : Tstrings;

  {==========================================================================
                          單元實現部分
  ==========================================================================}

implementation

{==========================================================================
                        引用的單元
==========================================================================}

uses UntFaceD, UntDM, UntFunc, UntAbout, UntSysFaceD, UntFuncD;

{$R *.dfm}

procedure TFormMain.TimerEnable(Tg : integer);
begin
  if Tg = 1 then
  begin
    FormMain.Timer1.Enabled := true;
    FormMain.Timer2.Enabled := true;
    FormMain.Timer3.Enabled := true;
  end;
  if Tg = 0 then
  begin
    FormMain.Timer1.Enabled := false;
    FormMain.Timer2.Enabled := false;
    FormMain.Timer3.Enabled := false;
  end;
end;

{==========================================================================
  過程名:    TFormMain.ShowFunc
  功  能:    打開代碼添加編輯窗口
  參　數:    PID: integer，代碼ID
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ShowFunc(PID,St: integer);
var
  FrmFunc : TFrmFunc;
begin
  FrmFunc := TFrmFunc.Create(Application);
  FrmFunc.Tag := PID;
  if St = 0 then
    begin
      FrmFunc.Width := 725;
      FrmFunc.Height := 480;
      FrmFunc.WindowState := wsNormal;
    end;
  if St = 1 then
    begin
      FrmFunc.WindowState := wsMaximized;
    end;
  FrmFunc.ShowModal;
  FrmFunc.Free;

  if FormMain.FM = 8 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFuncD(0,0);
  end;
  if FormMain.FM = 9 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFuncD(0,1);
  end;
end;

{==========================================================================
  過程名:    TFormMain.ShowFuncD
  功  能:    打開代碼添加編輯窗口
  參　數:    PID: integer，代碼ID
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.ShowFuncD(PID,St: integer);
var
  FrmFuncD : TFrmFuncD;
begin
  FrmFuncD := TFrmFuncD.Create(Application);
  FrmFuncD.Tag := PID;
  if St = 0 then
    begin
      FrmFuncD.Width := 725;
      FrmFuncD.Height := 480;
      FrmFuncD.WindowState := wsNormal;
    end;
  if St = 1 then
    begin
      FrmFuncD.WindowState := wsMaximized;
    end;
  FrmFuncD.ShowModal;
  FrmFuncD.Free;

  if FormMain.FM = 8 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFunc(0,0);
  end;
  if FormMain.FM = 9 then
  begin
    FormMain.FM := -1;
    FormMain.ShowFunc(0,1);
  end;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
 try
  Self.StatBar.Panels[1].Text := DateTimeToStr(Now);
 except
  Timer1.Enabled := false;
 end;
end;

procedure TFormMain.N1Click(Sender: TObject);
begin
  Close;
end;

{==========================================================================
  過程名:    TFormMain.N3Click
  功  能:    顯示關于窗體
  參　數:
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.N3Click(Sender: TObject);
begin
  with TFrmAbout.Create(Application) do
    begin
      ShowModal;
      Free;
    end;
end;

{==========================================================================
  過程名:    TFormMain.FormCreate
  功  能:    創建IDLIST
  參　數:
  作　者:    洪漢輝
  日　期:    2007.08.01
==========================================================================}

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Self.PgcMain.ActivePageIndex := 0;
  IDList := Tstringlist.Create;
  IDTipList := Tstringlist.Create;
  Self.Tag := 0;
  DBGridFunc.Tag := 1;
  self.FM := -1;
end;

procedure TFormMain.SBtnAddFuncClick(Sender: TObject);
12 3 下一頁
?? 文件大小 964 K
?? 上傳用戶 xiaotiao
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#DELPHI7 #delphi #源代碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? untmain.~pas

?? 快捷鍵說明
