xinpianruku.pas

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

unit xinpianruku;

interface

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

type
  TForm5 = class(TForm)
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit5: TDBEdit;
    Label9: TLabel;
    Image1: TImage;
    Image2: TImage;
    Label10: TLabel;
    SpeedButton4: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses datamoban, main;

{$R *.dfm}

procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
   if not (edit4.text='') then
   begin

    datamodule1.ADOTable1.Active:=true;
    datamodule1.ADOTable1.Edit;
    datamodule1.ADOTable1['编号']:=edit1.Text;
    datamodule1.ADOTable1['主演']:=edit2.Text;
    datamodule1.ADOTable1['导演']:=edit3.Text;
    datamodule1.ADOTable1['片名']:=edit4.Text;
    datamodule1.adotable1['库存情况']:=true;
   datamodule1.adotable1['购入日期']:=datetimepicker1.date;
    datamodule1.ADOTable1.post;
    speedbutton1.Enabled:=false;
    if messagedlg('要继续添加吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
    datamodule1.ADOTable1.close;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    end
    else
    begin
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    close;
    end;
    end
    else
    showmessage('您还没有输入片名');
end;



procedure TForm5.SpeedButton3Click(Sender: TObject);
begin
edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
close;
speedbutton1.Enabled:=false;
end;

procedure TForm5.FormActivate(Sender: TObject);
begin
datamodule1.ADOTable1.Close;
end;

procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
{dbedit5.Text:='';
dbcombobox1.Text:='';
dbcombobox2.Text:='';
dbcombobox3.Text:='';}
datamodule1.ADOTable1.Active:=false;
speedbutton1.Enabled:=false;
end;

procedure TForm5.Image2Click(Sender: TObject);
begin
edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
form5.Close;
speedbutton1.Enabled:=false;
end;

procedure TForm5.SpeedButton4Click(Sender: TObject);
begin
datamodule1.ADOTable1.Open;
if datamodule1.ADOTable1.Locate('编号',edit1.Text,[]) then
    begin
    showmessage('您输入的编号已被占用！请重新选择编号');
     edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
       {dbedit3.Text:='';
        dbedit4.Text:='';
       dbedit5.Text:='';
          dbcombobox1.Text:='';
          dbcombobox2.Text:='';
         dbcombobox3.Text:='';}
      datamodule1.ADOTable1.close;
      speedbutton1.Enabled:=false;
      end
     else
     begin
     showmessage('可以使用该编号');
     speedbutton1.Enabled:=true;
     datamodule1.adotable1.Insert;

     end;
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.windowstate:=wsmaximized;
end;

end.