dvdinfofrm.pas

该系统实现了对DVD租赁过程的管理,功能完善,方便实用.

unit DVDInfoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, Menus, ADODB, jpeg, ExtCtrls, ComCtrls;

type
  TFrmDVDInfo = class(TForm)
    StatusBar1: TStatusBar;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    PopupMenu1: TPopupMenu;
    popNew: TMenuItem;
    popModi: TMenuItem;
    popDel: TMenuItem;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    N1: TMenuItem;
    popRef: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ShowRecord(Sender: TObject);
    procedure popNewClick(Sender: TObject);
    procedure popModiClick(Sender: TObject);
    procedure popDelClick(Sender: TObject);
    procedure ChangeDbGridColColor(ojbDbGrid:TDbGrid);
    procedure popRefClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsModify : boolean;
    TitleText : string;
  end;

var
  FrmDVDInfo: TFrmDVDInfo;

implementation

uses MainFrm, ModiDVDFrm;

{$R *.dfm}

procedure TFrmDVDInfo.ChangeDbGridColColor(ojbDbGrid:TDbGrid);  //改变DBGrid列的颜色
var
  i:integer;
begin
     for i:= 0 to ojbDbGrid.Columns.Count -1 do
   begin
      case i mod 3 of
      0: ojbDbGrid.Columns.Items[i].Color:=TColor($0023AF82);
      1: ojbDbGrid.Columns.Items[i].Color:=TColor($00339CDB);
      2: ojbDbGrid.Columns.Items[i].Color:=TColor($00C69C6D);
      end;
   end;
end;

procedure TFrmDVDInfo.ShowRecord(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'Select * from CD_info order by CD_ID';
  ADOQuery1.Open;
  StatusBar1.Panels[1].Text := '  现有光盘： ' + IntToStr(ADOQuery1.RecordCount) + ' 种';
  ChangeDbGridColColor(DbGrid1);
end;

procedure TFrmDVDInfo.FormCreate(Sender: TObject);
begin
  IsModify := False;
  ShowRecord(Sender);
end;

procedure TFrmDVDInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmDVDInfo.Free;
  FrmMain.sp4 := False;
end;

procedure TFrmDVDInfo.popNewClick(Sender: TObject);
begin
  IsModify := False;
  TitleText := '光盘信息管理-新增光盘';
  Application.CreateForm(TFrmModiDVD, FrmModiDVD);
  FrmModiDVD.ShowModal;
end;

procedure TFrmDVDInfo.popModiClick(Sender: TObject);
begin
  IsModify := True;
  TitleText := '光盘信息管理-修改光盘信息';
  Application.CreateForm(TFrmModiDVD, FrmModiDVD);
  FrmModiDVD.ShowModal;
end;

procedure TFrmDVDInfo.popDelClick(Sender: TObject);  //删除光盘信息
begin
  case Application.MessageBox('确实要删除记录吗？', '删除确认',MB_OKCANCEL+MB_ICONINFORMATION) of
    IDCANCEL : ;   //放弃删除
    IDOK:
    begin
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
	    ADOQuery2.SQL.Add('Delete * From CD_Info Where CD_ID = ''' +DBGrid1.Fields[0].Text+ '''');
	    ADOQuery2.ExecSQL;
      ADOQuery2.Close;  //删除CD_Store表中相关的店内编号记录
      ADOQuery2.SQL.Clear;
	    ADOQuery2.SQL.Add('Delete * From CD_Store Where CD_ID = ''' +DBGrid1.Fields[0].Text+ '''');
	    ADOQuery2.ExecSQL;
      Application.MessageBox('删除记录成功！', '成功',MB_OK+MB_ICONINFORMATION);
      ShowRecord(Sender);
    end;
  end; //Case end
end;

procedure TFrmDVDInfo.popRefClick(Sender: TObject);
begin
  ShowRecord(Sender);
end;

procedure TFrmDVDInfo.FormActivate(Sender: TObject);
begin
  ShowRecord(Sender);
end;

end.