unit10.pas

机房管理系统源代码2006-7-8制作的非常实用

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, DB,StrUtils, ADODB;

type
  Tfrmuse_comp = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn4: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmuse_comp: Tfrmuse_comp;

implementation

uses Unit3, Unit11, Unit12;

{$R *.dfm}

procedure Tfrmuse_comp.FormShow(Sender: TObject);
begin       
 dm1.ADOQuery1.SQL.Text:='select pno,bespeak_date,isclasses,edates,bdates,'#13#10
      +'format(btimes,"hh:mm:ss") as btimes,format(etimes,"hh:mm:ss") as etimes,pjname,teacher,ma_id,st_id from projects';
 dm1.ADOQuery1.open;  
 //dm1.ADOQuery1.FieldByName('btimes').displayformat:= 'hh:mm:ss';

 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='pno';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='预约号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=60;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='bespeak_date';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='预约时间';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='isclasses';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='课内上机';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='bdates';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='开始日期';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='edates';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='结束日期';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='btimes';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='开始时间';
 //DBGrid1.Columns[DBGrid1.Columns.Count-1].
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='etimes';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='结束时间';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='pjname';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='课程名称';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='teacher';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='指导老师';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='ma_id';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='机器号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='st_id';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='学号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
end;

procedure Tfrmuse_comp.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 dm1.ADOQuery1.close; 
end;

procedure Tfrmuse_comp.BitBtn3Click(Sender: TObject);
var na:string;
begin
 na:=trim(dm1.ADOQuery1.fieldbyname('pno').AsString);
 if application.MessageBox(pchar('确定删除'+na+'？'),'',MB_YESNO)<>IDYES then
  exit;
 dm1.ADOQuery1.close;
 dm1.ADOCon1.Execute('delete from projects where pno='
 +na);
 dm1.ADOQuery1.Open;
 application.MessageBox('已删除','',64);
end;

procedure Tfrmuse_comp.BitBtn1Click(Sender: TObject);
begin
 dm1.ADOQuery1.close;
 application.CreateForm(tfrmpjc,frmpjc);
 frmpjc.ty:=1;
 frmpjc.ShowModal;
 dm1.ADOQuery1.open;
end;

procedure Tfrmuse_comp.BitBtn2Click(Sender: TObject);
begin
 application.CreateForm(tfrmpjc,frmpjc);
 frmpjc.Edit1.Text:=dm1.ADOQuery1.fieldbyname('pno').AsString;
 dm1.ADOQuery1.close;
 frmpjc.ty:=2;
 frmpjc.ShowModal;
 dm1.ADOQuery1.open;
end;

procedure Tfrmuse_comp.BitBtn4Click(Sender: TObject);
begin
 application.CreateForm(tfrmsuemath,frmsuemath);
 frmsuemath.Edit1.Text:=dm1.ADOQuery1.fieldbyname('st_id').AsString;
 frmsuemath.Edit3.Text:=dm1.ADOQuery1.fieldbyname('btimes').asstring;
 frmsuemath.Edit3.Text:=rightstr(frmsuemath.Edit3.Text,8);
 dm1.ADOQuery1.close;
 frmsuemath.ty:=1;
 frmsuemath.ShowModal;
 dm1.ADOQuery1.open;
end;

end.