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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](六) 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

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

delphi气象服务业务系统＋sql[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](六)由毕业论文网（www.huoyuandh.com）会员上传。