message.pas

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

unit Message;

interface

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

type
  TForm10 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    Memo1: TMemo;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;


implementation

uses Access;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

with ADOquery1 do
begin

    sql.Clear;
    sql.Add('insert into 信息反馈(员工号,提交时间,反馈信息) values('''+form2.Edit1.Text+''','''+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+''','''+Memo1.Text+''')');
    execsql;
    showmessage('已成功提交');
end;
close;
end;

procedure TForm10.FormCreate(Sender: TObject);
var
   x: string;   //定义局部变量
begin
Memo1.Text:= '';
datetimepicker1.date:=date;
x:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
label1.Caption :=x;

end;

end.