message1.~pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Message1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm11 = class(TForm)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    ListView1: TListView;
    StaticText1: TStaticText;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
   // procedure Label5Click(Sender: TObject);
    //procedure Edit5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
begin
ListView1.Items.Clear;  //清除ListView1中的相关内容
with ADOQuery1 do
  begin
  SQL.Clear;
  SQL.Add('select 姓名 as a1, 性别 as a2,部门 as a3,提交时间,反馈信息 from 员工,信息反馈 where 员工.员工号=:s0 ');
  Parameters.ParamByName('s0').value := Edit1.Text;
  Open;
  if ADOQuery1.Eof then       //数据库中不存在该生信息
     begin
       showmessage('不存在该员工,请核对信息!');
       Edit1.Text:='';
     end
     else
     begin
     if FieldByName('a1').Value <>null then   //如果存在，在相应的控件中显示相应的内容
     Edit2.Text :=fieldbyname('a1').Value;
     if FieldByName('a2').Value <>null then
     Edit3.Text :=fieldbyname('a2').Value;
     if FieldByName('a3').Value <>null then
     Edit4.Text :=fieldbyname('a3').Value;
     //if FieldByName('a4').Value <>null then
     //Edit5.Text :=fieldbyname('a4').Value;
     while not Eof do
     begin
     with ListView1.Items.Add do    //在ListView1中显示数据库中的数据
        begin
           Caption := FieldByName('提交时间').AsString;
           SubItems.Add(FieldByName('反馈信息').AsString);
         end;
         Next;      //循环显示，直到显示完所有数据
     end;
     StaticText1.Caption:= '共'+IntToStr(RecordCount)+'条记录';
     end;
     end;
end;

procedure TForm11.Label4Click(Sender: TObject);
begin

end;

{procedure TForm11.Label5Click(Sender: TObject);
begin

end;}

{procedure TForm11.Edit5Change(Sender: TObject);
begin

end;}

end.