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);
首页 上一页 4 5 6 7 8 9 10 下一页 尾页 7/10/10
delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](七)由毕业论文网（www.huoyuandh.com）会员上传。
