uduty.pas

ＤＥＬＰＨＩ开发的寝室管理系统

unit Uduty;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, ImgList, jpeg, Grids,
  DBGrids, DB, ADODB;

type
  Tfrmduty = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel2: TPanel;
    Edit1: TEdit;
    Label5: TLabel;
    Memo1: TMemo;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    Label7: TLabel;
    Edit4: TEdit;
    Button3: TButton;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
   


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
   frmduty: Tfrmduty;

implementation

{$R *.dfm}

procedure Tfrmduty.Timer1Timer(Sender: TObject);
begin
  Label2.Caption:=DateTimetoStr(Now);
end;

procedure Tfrmduty.FormCreate(Sender: TObject);
begin
  Label2.Caption:=DateTimetoStr(Now);

end;



Procedure Tfrmduty.Button2Click(Sender: TObject);
begin
  ADOQuery1.close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from duty_info');
  ADOQuery1.open;
  ADOQuery1.First;
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('duty_info_no').AsString:=Edit3.Text;
  ADOQuery1.FieldByName('manager_no').AsString:=Edit2.Text;
  ADOQuery1.FieldByName('time').AsString:=Label2.Caption;
  ADOQuery1.FieldByName('detail').AsString:=Memo1.Text;
  ADOQuery1.post;
  showmessage('添加成功！');
  Edit2.Text:='';
  Edit3.Text:='';
  Memo1.Text:='';
  ADOQuery1.close;
  ADOQuery1.sql.Clear;
  ADOQuery1.sql.Add('select * from duty_info');
  ADOQuery1.open;

end;


procedure Tfrmduty.Button1Click(Sender: TObject);
begin
  if trim(edit1.text)=''  then
  begin
    showmessage('请输入管理员编号');
    exit;
  end
  else
  begin
    ADOQuery1.close;
    ADOQuery1.sql.clear;
    ADOQuery1.sql.add('select *  from duty_info  where manager_no='+#39+edit1.text+#39);
    ADOQuery1.open;
    edit1.Text:='';
  end;
end;

procedure Tfrmduty.Button3Click(Sender: TObject);
begin
  if self.Edit4.Text='' then begin
    showmessage('请输入值班编号');
    exit;
  end;

  with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Text:='select * from duty_info where duty_info_no=:duty_info_no ';
      Parameters[0].Value:=Edit4.Text;
      open;



    begin
      First;
      open;
      delete;
      showmessage('删除成功!');
      Edit4.Text:='';
      close;
      sql.clear;
      sql.Add('select *  from  duty_info');
      open;

    end
     


  end;


end;

procedure Tfrmduty.Button4Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmduty.Button5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmduty.Button6Click(Sender: TObject);
begin
  close;
end;

end.