delphi＋sql办公自动化系统（＋开题报告源程序＋范文正文＋外文翻译＋答辩ppt）(十)

bsp;    end;
     except
     //
     end;
  end;
end;

procedure TfrmSendMsg.FormCreate(Sender: TObject);
var
 strUser:PChar;
 strSize:DWord;
begin
 mesText.Lines.Clear;
 strUser:=StrAlloc(100);
 strSize:=100;
 GetUserName(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;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnSelectClick(Sender: TObject);
    procedure bbtnModifyClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure sbtnShowAllClick(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPersonalChange: TfrmPersonalChange;

implementation

uses Mydata, UemployeeMgr;

{$R *.dfm}

procedure TfrmPersonalChange.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmPersonalChange.bbtnSelectClick(Sender:

首页 上一页 7 8 9 10 11 12 13 下一页 尾页 10/15/15

delphi＋sql办公自动化系统（＋开题报告源程序＋范文正文＋外文翻译＋答辩ppt）(十)相关范文