unit10.pas

宿舍管理系统

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    gb_1: TGroupBox;
    label23: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    label11: TLabel;
    label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    label34: TLabel;
    Label9: TLabel;
    e_qsry3: TEdit;
    e_qsry6: TEdit;
    e_qsry5: TEdit;
    e_qsry4: TEdit;
    e_qsm: TEdit;
    e_qsz: TEdit;
    e_qsry1: TEdit;
    e_qsry2: TEdit;
    DBGrid1: TDBGrid;
    gb_2: TGroupBox;
    b_xz: TBitBtn;
    b_sc: TBitBtn;
    b_bc: TBitBtn;
    b_qx: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1jsm: TWideStringField;
    ADOQuery1jsz: TWideStringField;
    ADOQuery1ry1: TWideStringField;
    ADOQuery1ry2: TWideStringField;
    ADOQuery1ry3: TWideStringField;
    ADOQuery1ry4: TWideStringField;
    ADOQuery1ry5: TWideStringField;
    ADOQuery1ry6: TWideStringField;
    procedure s_save;
    procedure s_show;
    procedure s_clear(var bb:boolean);
    procedure b_xzClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure b_scClick(Sender: TObject);
    procedure b_bcClick(Sender: TObject);
    procedure b_qxClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure e_qsmKeyPress(Sender: TObject; var Key: Char);
    procedure e_qszKeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry1KeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry2KeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry3KeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry4KeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry5KeyPress(Sender: TObject; var Key: Char);
    procedure e_qsry6KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);

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

var
  Form10: TForm10;
  bsf:string;
implementation

{$R *.dfm}
 procedure tForm10.s_save;
begin
  with  form10 do
        begin
          adoquery1.Edit;
          adoquery1.FieldByName('jsm').AsString:=trim(e_qsm.Text);
          adoquery1.FieldByName('jsz').AsString:=trim(e_qsz.Text);
          adoquery1.FieldByName('ry1').AsString :=trim(e_qsry1.Text);
          adoquery1.FieldByName('ry2').AsString :=trim(e_qsry2.Text);
          adoquery1.FieldByName('ry3').AsString :=trim(e_qsry3.Text);
          adoquery1.FieldByName('ry4').AsString :=trim(e_qsry4.Text);
          adoquery1.FieldByName('ry5').AsString :=trim(e_qsry5.Text);
          adoquery1.FieldByName('ry6').AsString :=trim(e_qsry6.Text);
          adoquery1.Post;
        end;
end;

procedure  tForm10.s_show;
begin
    form10.ADOQuery1.Close;
    form10.ADOQuery1.SQL.Clear;
    form10.ADOQuery1.SQL.Add('select * from jsb');
    form10.ADOQuery1.Open;
 end;
procedure tForm10.s_clear(var bb:boolean);
var
i:integer;
begin
     with form10 do
        begin
           b_xz.Enabled:=true;
           b_sc.Enabled:=true;
           b_bc.Enabled:=false;
           b_qx.Enabled:=false;
           e_qsm.Text:='';
           e_qsz.Text:='';
           e_qsry1.text:='';
           e_qsry2.Text:='';
           e_qsry3.Text:='';
           e_qsry4.Text:='';
           e_qsry5.Text:='';
           e_qsry6.Text:='';
         for i:=0 to gb_1.controlcount-1 do
            begin
            if (gb_1.Controls[i].ClassType=tedit) then
                begin
                   if bb =false then
                       gb_1.Controls[i].Enabled :=false
                   else
                      gb_1.Controls[i].Enabled:=true;
               end;
          end;
     end;
 end;
procedure TForm10.b_xzClick(Sender: TObject);
var
bb:boolean;
begin
  bsf:='xz';
  bb:=true;
  s_clear(bb);
  e_qsm.SetFocus;
  b_xz.Enabled:=false;
  b_sc.Enabled :=false;
  b_bc.Enabled:=true;
  b_qx.Enabled :=true;
end;

procedure TForm10.FormCreate(Sender: TObject);
 var
ss:boolean;
begin
s_show;
ss:=false;
s_clear(ss);
end;

procedure TForm10.b_scClick(Sender: TObject);
var
bb:boolean;
begin
if trim(e_qsm.Text)<>'' then
  begin
  if application.MessageBox('你确定删除吗？', '提示', 4+32)=6 then
     begin
       adoquery1.Delete ;
       s_show;
       bb:=false;
       s_clear(bb);
     end
  else
   exit;
  end
 else
  showmessage('请选择删除记录');
  end;
procedure TForm10.b_bcClick(Sender: TObject);
var
ss:boolean;
begin
  if trim(e_qsm.Text)='' then
     begin
       showmessage('请输入寝室名！');
       e_qsm.SetFocus;
       exit;
     end;

     if bsf <>'xg'  then
       begin
          adoquery1.Close;
          adoquery1.SQL.Clear;
          adoquery1.SQL.Add('select * from jsb where jsm = ' +char(39)+trim(e_qsm.Text)+char(39));
          adoquery1.Open;
      end;
   if adoquery1.recordcount<0 then
    begin
     showmessage('请输入值');
     exit;
   end;
     if trim(e_qsz.Text)='' then
       begin
         showmessage('请输入寝室长');
         e_qsz.SetFocus;
         exit;
       end;
   if trim(e_qsry1.Text)='' then
       begin
        showmessage('请输入寝室人员1！');
        e_qsry1.SetFocus;
        exit;
       end;
   if trim(e_qsry2.Text)= ''then
      begin
        showmessage('请输入寝室人员2!');
        e_qsry2.SetFocus;
        exit;
      end;
    if trim(e_qsry3.Text)= ''then
      begin
        showmessage('请输入寝室人员3!');
        e_qsry3.SetFocus;
        exit;
      end;
     if trim(e_qsry4.Text)= ''then
      begin
        showmessage('请输入寝室人员4!');
        e_qsry4.SetFocus;
        exit;
      end;
     if trim(e_qsry5.Text)= ''then
      begin
        showmessage('请输入寝室人员5!');
        e_qsry5.SetFocus;
        exit;
      end;
      if trim(e_qsry6.Text)= ''then
      begin
        showmessage('请输入寝室人员2!');
        e_qsry6.SetFocus;
        exit;
      end;
   if MessageDlg('记录是否保存吗 ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     begin
         s_save;
         adoquery1.Close;
         adoquery1.SQL.Clear;
         adoquery1.SQL.add('select * from jsb');
         adoquery1.Open;
         ss:=false;
         s_clear(ss);
     end
    else
    exit;
 end;
procedure TForm10.b_qxClick(Sender: TObject);
var
ss:boolean;
begin
ss:=false;
s_clear(ss);
end;

procedure TForm10.DBGrid1CellClick(Column: TColumn);
var
vv:boolean;
begin
if adoquery1.RecordCount>0 then
 begin
   vv:=false;
   s_clear(vv);
   e_qsm.Text:=trim(adoquery1.fieldbyname('jsm').AsString );
   e_qsz.Text:=trim(adoquery1.fieldbyname('jsz').AsString);
   e_qsry1.Text:=trim(adoquery1.fieldbyname('ry1').AsString);
   e_qsry2.Text:=trim(adoquery1.fieldbyname('ry2').AsString );
   e_qsry3.Text:=trim(adoquery1.fieldbyname('ry3').AsString );
   e_qsry4.Text:=trim(adoquery1.fieldbyname('ry4').AsString );
   e_qsry5.Text:=trim(adoquery1.fieldbyname('ry5').AsString );
   e_qsry6.Text:=trim(adoquery1.fieldbyname('ry6').AsString );
  end;
 end;
procedure TForm10.e_qsmKeyPress(Sender: TObject; var Key: Char);
     begin
 if key=chr(13) then
        if trim(e_qsm.Text)='' then
       begin
          showmessage('请输入寝室名！') ;
          e_qsm.SetFocus;
        end
     else
        begin
           e_qsz.SetFocus;
        end;
     end;
procedure TForm10.e_qszKeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
        if trim(e_qsz.Text)='' then
       begin
          showmessage('请输入寝室长！') ;
          e_qsz.SetFocus;
        end
     else
        begin
           e_qsry1.SetFocus;
        end;
      end;

procedure TForm10.e_qsry6KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
        if trim(e_qsry6.Text)='' then
       begin
          showmessage('请输入寝室人员6！') ;
          e_qsry6.SetFocus;
        end
     else
        begin
           b_bc.SetFocus;
        end;
  end;
procedure TForm10.e_qsry5KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
        if trim(e_qsry5.Text)='' then
       begin
          showmessage('请输入寝室人员5！') ;
          e_qsry5.SetFocus;
        end
     else
        begin
           e_qsry6.SetFocus;
        end;
 end;
procedure TForm10.e_qsry1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=chr(13) then
        if trim(e_qsry1.Text)='' then
       begin
          showmessage('请输入寝室人员1！') ;
          e_qsry1.SetFocus;
        end
     else
        begin
           e_qsry2.SetFocus;
        end;
  end;

procedure TForm10.e_qsry4KeyPress(Sender: TObject; var Key: Char);
 begin
   if key=chr(13) then
        if trim(e_qsry4.Text)='' then
       begin
          showmessage('请输入寝室人员4！') ;
          e_qsry4.SetFocus;
        end
     else
        begin
           e_qsry5.SetFocus;
        end;
 end;
 procedure TForm10.e_qsry3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
        if trim(e_qsry3.Text)='' then
       begin
          showmessage('请输入寝室人员3！') ;
          e_qsry3.SetFocus;
        end
     else
        begin
           e_qsry4.SetFocus;
        end;
     end;
procedure TForm10.e_qsry2KeyPress(Sender: TObject; var Key: Char);
 begin
  if key=chr(13) then
        if trim(e_qsry2.Text)='' then
         begin
          showmessage('请输入寝室人员2！') ;
          e_qsry2.SetFocus;
        end
   else
        begin
           e_qsry3.SetFocus;
        end;
     end;
   procedure TForm10.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 if gdSelected in state then

      SetBkColor(dbgrid1.canvas.handle,clgreen)

      else

      setbkcolor(dbgrid1.canvas.handle,clwhite);

      dbgrid1.Canvas.TextRect(rect,0,0,field.AsString);

      dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);

    end;

end.