unit7.pas

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

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,adodb;

type
  Tfrmedop = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    Edit7: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
     tys:integer;
  public
   property ty:integer read tys write tys;

    { Public declarations }
  end;

var
  frmedop: Tfrmedop;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure Tfrmedop.FormShow(Sender: TObject);
var qu:tadoquery;
begin
 edit1.Enabled:=tys=1;
 if tys<>1 then //读取
 begin
  qu:=tadoquery.Create(nil);
  qu.Connection:=dm1.ADOCon1;
  qu.SQL.Text:='select * from operates where id='''
   +trim(edit1.Text)+'''';
  qu.Open; 
  edit2.text:=qu.fieldbyname('name').AsString;
  edit3.text:=qu.fieldbyname('st_id').AsString;
  edit4.text:=qu.fieldbyname('sex').AsString;
  edit5.text:=qu.fieldbyname('depart').AsString;
  edit6.text:=qu.fieldbyname('classes').AsString;
  qu.close;
  qu.free;
 end;
end;

procedure Tfrmedop.BitBtn1Click(Sender: TObject);
var s:string;
begin
 if trim(edit1.Text)='' then
 begin
  edit1.SetFocus;
  application.MessageBox('请输入帐号','',64);
  modalresult:=mrnone;
  exit;
 end;
 if trim(edit2.Text)='' then
 begin
  edit2.SetFocus;
  application.MessageBox('请输入姓名','',64);
  modalresult:=mrnone;
  exit;
 end;
 if trim(edit3.Text)='' then
 begin
  edit3.SetFocus;
  application.MessageBox('请输入性别','',64);
  modalresult:=mrnone;
  exit;
 end;
 if trim(edit7.Text)='' then
 begin
  edit7.SetFocus;
  application.MessageBox('请输入金额','',64);
  modalresult:=mrnone;
  exit;
 end;
 if ty=1 then //录入数据
 begin
  if not dm1.ADOCon1.Execute('select id from operates where id='''
   +trim(edit1.Text)+'''').EOF then
  begin
   edit1.SetFocus;
   application.MessageBox('已有此帐号','',64);
   modalresult:=mrnone;
   exit;
  end;
  s:='insert into operates (id,name,st_id,sex,depart,classes,cash) values ('''
   +trim(edit1.Text)+''','''+trim(edit2.Text)+''','''+trim(edit3.Text)+''','''
   +trim(edit4.Text)+''','''+trim(edit5.Text)+''','''+trim(edit6.Text)+''','
   +trim(edit7.Text)+')';
  dm1.ADOCon1.Execute(s);
 end
 else
 begin
  s:='update  operates  set name='''+trim(edit2.Text)
   +''',st_id= '''+trim(edit3.Text)+''',sex='''+trim(edit4.Text)
   +''',depart='''+trim(edit5.Text)+''',classes='''+trim(edit6.Text)
   +''',cash='+trim(edit7.Text)+' where id='''+trim(edit1.Text)+'''';
  dm1.ADOCon1.Execute(s);
 end;
end;

procedure Tfrmedop.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
 if not (char(key) in ['0'..'9']) then
  key:=#0;
end;

end.