tianjiahuiyuan.pas

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

unit tianjiahuiyuan;

interface

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

type
  TForm8 = class(TForm)
    DataSource1: TDataSource;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBImage1: TDBImage;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    DBMemo1: TDBMemo;
    Label10: TLabel;
    SpeedButton4: TSpeedButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Image3: TImage;
    SpeedButton5: TSpeedButton;
    Edit1: TEdit;
    Label17: TLabel;
    DateTimePicker1: TDateTimePicker;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses datamoban;

{$R *.dfm}

procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
if  radiobutton1.Checked then
 begin
 datamodule1.ADOTable2['类型']:='月卡';
 end;
if  radiobutton2.Checked then
begin
datamodule1.ADOTable2['类型']:='季度卡';
 end;

if  radiobutton3.Checked then
begin
 datamodule1.ADOTable2['类型']:='年卡';
 end;
if  radiobutton4.Checked then
begin
 datamodule1.ADOTable2['类型']:='永久会员';
 end;
datamodule1.adotable2['已借片数']:=0;
datamodule1.ADOTable2['证号']:=edit1.Text;
datamodule1.ADOTable2['办证日期']:=datetimepicker1.Date;
datamodule1.ADOTable2.post;
if messagedlg('要继续添加吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin
datamodule1.ADOTable2.close;
speedbutton1.Enabled:=false;
edit1.Text:='';
end
else
close;
end;

procedure TForm8.SpeedButton2Click(Sender: TObject);
begin
datamodule1.ADOTable2.Cancel;
speedbutton1.Enabled:=false ;
datamodule1.ADOTable2.Insert;
end;

procedure TForm8.SpeedButton3Click(Sender: TObject);
begin
form8.Close;
speedbutton1.Enabled:=false;
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
datamodule1.ADOTable2.Edit;
datamodule1.ADOTable2DSDesigner11.LoadFromFile(opendialog1.FileName);
end;
end;
procedure TForm8.SpeedButton4Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
datamodule1.ADOTable2.Edit;
datamodule1.ADOTable2DSDesigner11.LoadFromFile(opendialog1.FileName);
end;
end;


procedure TForm8.Image3Click(Sender: TObject);
begin
form8.Close;
speedbutton1.Enabled:=false;
end;

procedure TForm8.SpeedButton5Click(Sender: TObject);
begin
datamodule1.ADOTable2.Open;
if datamodule1.ADOTable2.Locate('证号',edit1.Text,[]) then
begin
speedbutton1.Enabled:=false;
showmessage('此编号已有会员，请重新输入');
edit1.Text:='';
end
else
begin
showmessage('此编号可用');
speedbutton1.Enabled:=true;
datamodule1.ADOTable2.Insert;
end;
end;

procedure TForm8.FormActivate(Sender: TObject);
begin
datamodule1.adotable2.close;
edit1.Text:='';
end;

end.