yonghuguanli.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit yonghuguanli;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, Mask, DBCtrls, DB;

type
  TForm11 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DataSource2: TDataSource;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label11: TLabel;
    GroupBox1: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses datamoban;

{$R *.dfm}

procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text=edit2.Text then
 begin
 datamodule1.ADOQuery4['password']:=edit1.Text;
 datamodule1.ADOQuery4.Post;
 showmessage('管理员信息修改成功！');
  edit1.Text:='';
 edit2.Text:='';
 end
 else
 begin
 showmessage('两次输入的密码不一致！');
 edit1.Text:='';
 edit2.Text:='';
 end;
end;

procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
datamodule1.ADOQuery4.Cancel;
 edit1.Text:='';
 edit2.Text:='';

end;

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit5.Text:='';
 edit4.Text:='';
 edit3.Text:='';
end;

procedure TForm11.FormActivate(Sender: TObject);
begin
datamodule1.ADOQuery4.Edit;
end;

procedure TForm11.SpeedButton3Click(Sender: TObject);
begin
if radiobutton1.Checked then
begin
  datamodule1.ADOQuery41.Insert;
  if not (edit4.Text=edit5.text) then
    begin
      showmessage('两次密码输入不匹配！');
        datamodule1.ADOQuery41.Insert;
        edit5.Text:='';
        edit4.Text:='';
    end
    else
    begin
    datamodule1.adoquery41['id']:=edit3.Text;
     datamodule1.adoquery41['password']:=edit4.Text;
     datamodule1.ADOQuery41.post;
    showmessage('操作员添加成功！');
    edit5.Text:='';
    edit4.Text:='';
    edit3.Text:='';
   end;
end;
if radiobutton2.Checked then
begin
   datamodule1.ADOQuery41.Edit;
   if datamodule1.ADOQuery41.Locate('id',edit3.Text,[]) then
      begin
      datamodule1.ADOQuery41.Locate('id',edit3.text,[]);
         if not (edit4.Text=edit5.text) then
           begin
            showmessage('两次密码输入不正确！');
            edit5.Text:='';
            edit4.Text:='';
           end
           else
           begin
           datamodule1.ADOQuery41.Edit;
           datamodule1.adoquery41['id']:=edit3.Text;
           datamodule1.adoquery41['password']:=edit4.Text;
           datamodule1.ADOQuery41.Post;
           showmessage('操作员修改成功！');
           edit5.Text:='';
           edit4.Text:='';
           edit3.Text:='';
           end
         end
        else
        begin
        showmessage('没有此操作员');
        edit5.Text:='';
        edit4.Text:='';
        edit3.Text:='';
    end;
    end;


if radiobutton3.Checked then
    begin
      datamodule1.adoquery41.Edit;
     begin
      if datamodule1.ADOQuery41.Locate('id',edit3.text,[]) then
      begin
      datamodule1.ADOQuery41.Locate('id',edit3.text,[]);
      if ((not (edit4.Text=edit5.text)) or not(edit4.Text=datamodule1.ADOQuery41['password'])) then
           begin
            showmessage('两次密码输入不匹配或密码不正确！');
            edit5.Text:='';
            edit4.Text:='';
           end
           else
           begin
           datamodule1.adoquery41.Edit;
           datamodule1.adoquery41.Delete;
           datamodule1.adoquery41.Refresh;
           showmessage('操作员删除成功！');
           edit5.Text:='';
           edit4.Text:='';
           edit3.Text:='';
           end
           end
           else
           begin
         showmessage('没有此操作员');
         edit5.Text:='';
         edit4.Text:='';
         edit3.Text:='';
       end;
     end;
end;
end;


procedure TForm11.SpeedButton4Click(Sender: TObject);
begin
edit5.Text:='';
   edit4.Text:='';
     edit3.Text:='';
end;

procedure TForm11.SpeedButton5Click(Sender: TObject);
begin

if datamodule1.adotable5.Locate('ID','1',[]) then
begin
datamodule1.ADOTable5.Edit;
   if radiobutton5.Checked then
   begin
   datamodule1.ADOTable5['标识']:='a';
   end;
   if radiobutton4.Checked then
   begin
  datamodule1.ADOTable5['标识']:='b';
  end;
  if radiobutton6.Checked then
  begin
  datamodule1.ADOTable5['标识']:='c';
  end;
  if radiobutton7.Checked then
  begin
  datamodule1.ADOTable5['标识']:='d';
  end;
  datamodule1.ADOTable5.post;

  showmessage('配置已成功！重起该系统设置将生效');
end;
end;

end.