评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi气象服务业务系统＋sql[开题报告＋论文＋源(7)

2013-06-06 02:24 2.Text);
     FieldByName('Post').Value:=Trim(Edit2.Text);
     FieldByName('Department').Value:=Trim(ComboBox3.Text);
     FieldByName('Notes').Value:=Trim(Memo1.Text);
     Post;
     ShowMessage('已存盘！');
     Close;
     Open;
   end;

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);