unituser.pas

DELPHI应用一则

unit UnitUSER;

interface

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

type
  TFormUSER = class(TForm)
    Panel1: TPanel;
    SBzj: TSpeedButton;
    SBxg: TSpeedButton;
    SBsc: TSpeedButton;
    SBfh: TSpeedButton;
    DBGrid1: TDBGrid;
    DSUSER: TDataSource;
    procedure SBfhClick(Sender: TObject);
    procedure SBzjClick(Sender: TObject);
    procedure SBxgClick(Sender: TObject);
    procedure SBscClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUSER: TFormUSER;

implementation

Uses Udm, UnitUSERSZ;

{$R *.DFM}

procedure TFormUSER.SBfhClick(Sender: TObject);
begin
  close;
end;

procedure TFormUSER.SBzjClick(Sender: TObject);
begin
  FormUSERSZ:=TFormUSERSZ.Create(self);
  FormUSERSZ.Caption:='增加操作员';
  FormUSERSZ.EDczydm.Text:='';
  FormUSERSZ.EDczyxm.Text:='';
  FormUSERSZ.EDczykl.Text:='';
  FormUSERSZ.showmodal;
  freeandnil(FormUSERSZ);
end;

procedure TFormUSER.SBxgClick(Sender: TObject);
{var
  i:integer;
  Hczykl:string; }
begin
{ FormUSERSZ:=TFormUSERSZ.Create(self);
  FormUSERSZ.Caption:='修改操作员';
  FormUSERSZ.EDczydm.Text:=DM.ADOuserczydm.Value;
  FormUSERSZ.EDczyxm.Text:=DM.ADOuserczyxm.Value;
  Hczykl:='';
  for i:=1 to length(DM.ADOuserczykl.Value) do
    Hczykl:=Hczykl+CHR(ORD(DM.ADOuserczykl.Value[i])-10);
  FormUSERSZ.EDczykl.Text:=Hczykl;
  FormUSERSZ.showmodal;
  freeandnil(FormUSERSZ);}
end;

procedure TFormUSER.SBscClick(Sender: TObject);
begin
  {if DM.ADOuserczydm.Value<>'001' then
  begin
    if application.Messagebox('确认删除信息吗？','系统提示',MB_yesno+MB_defbutton2+MB_iconinformation)=IDYES then
    begin
     WITH dm.ADOcode do
     begin
       Close;
       SQL.Clear;
       SQL.Add('delete from userpass');
       SQL.add('where id=:id');
       Parameters.ParamByName('id').Value:=DM.ADOuser.fieldbyname('id').AsInteger;
       try
         ExecSQL
         except
         MessageBox(Handle,'删除数据失败','系统提示',MB_ICONINFORMATION);
         exit;
       end;
     end;
     dm.ADOuser.Close;
     dm.ADOuser.Open;
    end;
  end; }
end;

end.