delphi气象服务业务系统＋sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](七)

end;

end.

主界面设计与代码设计
unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, XPMan, Buttons, ExtCtrls,QStdCtrls,
  StdActns, ActnList;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    EmpMgr: TMenuItem;
    ClientMgr: TMenuItem;
    BusinessMgr: TMenuItem;
    MoneyMgr: TMenuItem;
    systemMgr: TMenuItem;
    StatusBar1: TStatusBar;
    empInfo: TMenuItem;
    empRaise: TMenuItem;
    XPManifest1: TXPManifest;
    CoolBar1: TCoolBar;
    sbtnEmpBrowse: TSpeedButton;
    sbtnServiceBrowse: TSpeedButton;
    sbtnSalaryBrowse: TSpeedButton;
    sbtnBusiBrowse: TSpeedButton;
    sbtnClientBrowse: TSpeedButton;
    sbtnExit: TSpeedButton;
    SalaryBrowse: TMenuItem;
    DailyCost: TMenuItem;
    Windows: TMenuItem;
    userAdd: TMenuItem;
    passwdModify: TMenuItem;
    loginHistory: TMenuItem;
    N13: TMenuItem;
    BusinessTip: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Exit: TMenuItem;
    Statistic: TMenuItem;
    dataBase: TMenuItem;
    ClientBrowse: TMenuItem;
    ServiceBrowse: TMenuItem;
    OrdersArrange: TMenuItem;
    BusinessInfo: TMenuItem;
    Timer1: TTimer;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    Cascade: TMenuItem;
    Vertical: TMenuItem;
    Horizontal: TMenuItem;
    N4: TMenuItem;
    About: TMenuItem;
    N5: TMenuItem;
    procedure sbtnEmpBrowseClick(Sender: TObject);
    procedure empRaiseClick(Sender: TObject);
    procedure SalaryBrowseClick(Sender: TObject);
    procedure DailyCostClick(Sender: TObject);
    procedure empInfoClick(Sender: TObject);
    procedure ServiceBrowseClick(Sender: TObject);
 

首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/10/10