计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

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

2013-06-06 02:24
导读:Name(strUser,strSize); UserName:=strUser; strDispose(strUser); MessageHeader:=TStringList.Create; MessageHeader.Add('----------------'); MessageHeader.Add(' FROM '+UserName); MessageHeader.Add('------
Name(strUser,strSize);
 UserName:=strUser;
 strDispose(strUser);
 MessageHeader:=TStringList.Create;
 MessageHeader.Add('----------------');
 MessageHeader.Add('   FROM   '+UserName);
 MessageHeader.Add('----------------');
end;

procedure TfrmSendMsg.AddrBoxChange(Sender: TObject);
begin
  StatusPanel.Caption:='';
end;

procedure TfrmSendMsg.mesTextChange(Sender: TObject);
begin
   StatusPanel.Caption:='';
end;

end.


气象信息界面与代码设计
unit UpersonalChange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dbcgrids, Grids, DBGrids, ExtCtrls, Mask,
  DBCtrls, ComCtrls;

type
  TfrmPersonalChange = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    sbtnShowAll: TBitBtn;
    bbtnSelect: TBitBtn;
    ControlBar1: TControlBar;
    StaticText1: TStaticText;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    bbtnSave: TBitBtn;
    bbtnExit: TBitBtn;
    bbtnModify: TBitBtn;
    Edit2: TEdit;
    Memo1: TMemo;
    ComboBox2: TComboBox; 大学排名
    ComboBox3: TComboBox;

    begin
     SelectFields:='Post';
    end;
  FieldsValue:='%'+Trim(Edit1.Text)+'%';
  with dm.AQEmpInfo do
   begin
    close;
    sql.Clear;
    sql.Add('select * from Employees where '+SelectFields+' like '''+FieldsValue+'''');
    open;
    dm.ATEmpInfo.Clone(dm.AQEmpInfo);
   end;
end;

procedure TfrmPersonalChange.bbtnModifyClick(Sender: TObject);
begin
  bbtnsave.Enabled:=true;
  combobox2.Enabled:=true;
  edit2.Enabled:=true;
  combobox3.Enabled:=true;
  memo1.Enabled:=true;
  combobox3.Enabled:=true;
  dm.ATEmpInfo.Edit;
end;

procedure TfrmPersonalChange.FormCreate(Sender: TObject);
begin
  bbtnsave.Enabled:=false;
  combobox3.Enabled:=false;
  edit2.Enabled:=false;
end;

procedure TfrmPersonalChange.bbtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmPersonalChange.sbtnShowAllClick(Sender: TObject);
begin
  dm.ATEmpInfo.Close;
  dm.ATEmpInfo.Open;
end;

procedure TfrmPersonalChange.bbtnSaveClick(Sender: TObject);
begin
  with dm.ATEmpInfo do
   begin
     Edit;
     FieldByName('Status').Value:=Trim(ComboBox

上一篇:列车时刻查询决策系统+delphi(一)毕业论文 下一篇:没有了