huiyuancaozuo.pas

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

unit huiyuancaozuo;

interface

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

type
  TForm9 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Label1: TLabel;
    Bevel2: TBevel;
    GroupBox1: TGroupBox;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label4: TLabel;
    DBImage1: TDBImage;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    Bevel3: TBevel;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    DataSource2: TDataSource;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    DBGrid1: TDBGrid;
    Image1: TImage;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Image2: TImage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses datamoban;

{$R *.dfm}

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then

    if not datamodule1.adotable2.Locate('证号',edit1.Text,[]) then
        begin
             showmessage('没有这条记录，请重新输入');
             edit1.Text:='';
         end
     else
         begin

         datamodule1.ADOQuery2.Close;
         datamodule1.ADOQuery2.SQL.Clear;
         datamodule1.ADOQuery2.SQL.Add('select * from 会员基本信息 where 证号='''+edit1.Text+'''');
         datamodule1.ADOQuery2.Open;
         end;
if RadioButton2.Checked then
           if not datamodule1.adotable2.Locate('姓名',edit1.Text,[]) then
        begin
             showmessage('没有这条记录，请重新输入');
             edit1.Text:='';
         end
     else
         begin
         datamodule1.ADOQuery2.Close;
         datamodule1.ADOQuery2.SQL.Clear;
         datamodule1.ADOQuery2.SQL.Add('select * from 会员基本信息 where 姓名='''+edit1.Text+'''');
         datamodule1.ADOQuery2.Open;
         end;
if RadioButton3.Checked then
        if not datamodule1.adotable2.Locate('身份证',edit1.Text,[]) then
        begin
             showmessage('没有这条记录，请重新输入');
             edit1.Text:='';
         end
     else
         begin
         datamodule1.ADOQuery2.Close;
         datamodule1.ADOQuery2.SQL.Clear;
         datamodule1.ADOQuery2.SQL.Add('select * from 会员基本信息 where 身份证='''+edit1.Text+'''');
         datamodule1.ADOQuery2.Open;
         end;
end;

procedure TForm9.SpeedButton2Click(Sender: TObject);
begin
datasource1.dataset:=datamodule1.ADOTable2;
datamodule1.ADOTable2.Active:=false;
datamodule1.ADOTable2.Active:=true;
end;

procedure TForm9.SpeedButton10Click(Sender: TObject);
begin
form9.close;
end;

procedure TForm9.SpeedButton8Click(Sender: TObject);
begin
datamodule1.ADOQuery2.Active:=false;
datamodule1.ADOQuery2.Active:=true;
end;

procedure TForm9.SpeedButton18Click(Sender: TObject);
begin
form9.close;
end;

procedure TForm9.SpeedButton14Click(Sender: TObject);
begin
  if messagedlg('确实要删除此条记录吗？',mtInformation,[mbOK, mbCancel],0)=mrok then
datamodule1.ADOTable2.Delete;
end;

procedure TForm9.SpeedButton17Click(Sender: TObject);
begin
datamodule1.ADOTable2.Active:=false;
datamodule1.ADOTable2.Active:=true;
end;

procedure TForm9.SpeedButton6Click(Sender: TObject);
begin
if messagedlg('确定删除本条记录吗？',mtInformation,[mbOK, mbCancel],0)=mrok then

datamodule1.ADOquery2.Delete;
end;

procedure TForm9.FormActivate(Sender: TObject);
begin
datamodule1.ADOTable2.Active:=false;
datamodule1.ADOTable2.Active:=true;
end;

end.