unit11.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);

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

var
  Form11: TForm11;
  flagset: boolean;


implementation
uses unit3,unit5,unit9;

{$R *.dfm}

procedure TForm11.FormShow(Sender: TObject);
begin
 with DModule1.Qry_user do
     begin
     close;
     sql.Clear;
     sql.Add('select * from users');
     open;
     end;
edit1.Text:=DModule1.Qry_user.FieldByName('userID').AsString;
edit2.Text:=DModule1.Qry_user.FieldByName('password').AsString;
label5.Caption:=DateToStr(DModule1.Qry_user.FieldByName('cdate').Value);
memo1.Text:=DModule1.Qry_user.FieldByName('memo').asstring;

end;

procedure TForm11.Button1Click(Sender: TObject);
begin
form11.conset;
button2.Enabled:=true;
button1.Enabled:=false;
end;

procedure TForm11.Button2Click(Sender: TObject);
begin
try
 with DModule1.Qry_user do
  begin
      close;
      sql.Clear;
      sql.Add('update users set password=(:ps1),Memo=(:Mo1)');
      sql.Add('where userID = (:UID)');
      Parameters.ParamByName('ps1').Value:=edit2.Text;
      Parameters.ParamByName('Mo1').Value:=memo1.Text;
      Parameters.ParamByName('UID').Value:=edit1.Text;
      execsql;
      close;
      sql.Clear;
      sql.Add('select * from users');
      open;
   end;
 except
   showmessage('数据库错误！');
 end;
form11.conset;
button1.Enabled:=true;

end;

procedure TForm11.conset;
begin
if flagset = false then
begin
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
memo1.ReadOnly:=true;
flagset:= true;
end
else
 begin
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
memo1.ReadOnly:=false;
flagset:=false;
  end;
end;


procedure TForm11.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=DModule1.Qry_user.FieldByName('userID').AsString;
edit2.Text:=DModule1.Qry_user.FieldByName('password').AsString;
label5.Caption:=DateToStr(DModule1.Qry_user.FieldByName('cdate').Value);
memo1.Text:=DModule1.Qry_user.FieldByName('memo').asstring;
end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edit1.Clear;
edit2.Clear;
memo1.Clear;
end;

procedure TForm11.Button3Click(Sender: TObject);
begin
if application.MessageBox(pchar(Format('注意删除后将无法恢复！您确定要删除 %s 这个用户吗？', [edit1.Text])),'提示', MB_YESNO) = ID_YES then
   DModule1.Qry_user.Delete;

end;

procedure TForm11.FormCreate(Sender: TObject);
begin
flagset:=true;
end;

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 edit2.SetFocus;
end;

procedure TForm11.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 button1.SetFocus;
end;

procedure TForm11.BitBtn1Click(Sender: TObject);
begin
 form11.close;
end;

end.