msg01frm.pas

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

unit Msg01Frm;

interface

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

type
  TFrmMsg01 = class(TForm)
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    bbtnQuit: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bbtnQuitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMsg01: TFrmMsg01;

implementation

{$R *.dfm}

procedure TFrmMsg01.FormCreate(Sender: TObject);
begin
  Label4.Caption := '';
  Label5.Caption := '';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'Select CD_Info.CD_NameCn, BorrowInfo.Store_ID From BorrowInfo,CD_Store,CD_Info';
  ADOQuery1.SQL.Text := ADOQuery1.SQL.Text + ' Where BorrowInfo.Store_ID=CD_Store.Store_ID and CD_Store.CD_ID=CD_Info.CD_ID';
  ADOQuery1.SQL.Text := ADOQuery1.SQL.Text + ' and BorrowInfo.Yes_No = ''0''';
  ADOQuery1.Open;
  Label4.Caption := ADOQuery1.FieldByName('Store_ID').AsString;
  Label5.Caption := ADOQuery1.FieldByName('CD_NameCn').AsString;
  FrmMsg01.Width := 110 + Label5.Width;
  if FrmMsg01.Width < 250 then
    FrmMsg01.Width := 250;
  Panel1.Width := FrmMsg01.Width - 16;
end;

procedure TFrmMsg01.bbtnQuitClick(Sender: TObject);
begin
  FrmMsg01.Close;
end;

end.