cmfs.txt

一个程序而已

CMM.pas程序清单（主窗体frmMM程序）


unit CMM;
interface
uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  CFillMM,
  CShow;
type
  TfrmMM = class(TForm)
    cmdExit: TButton;
    cmdFillMM: TButton;
    procedure cmdExitClick(Sender: TObject);
    procedure cmdFillMMClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMM: TfrmMM;
implementation
{$R *.dfm}

procedure TfrmMM.cmdExitClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TfrmMM.cmdFillMMClick(Sender: TObject);
begin
frmFillMM.ShowModal;
end;
end.




CFillMM.pas程序清单（编辑表的窗体frmFillMM程序）


unit CFillMM;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes,
 Graphics, Controls, Forms,  Dialogs, ExtCtrls, 
DBCtrls, DB, DBTables, StdCtrls, Mask;
type
  TfrmFillMM = class(TForm)
    cmdExit: TButton;
    MMTable: TTable;
    MMDataSource: TDataSource;
    MMDBNavigator: TDBNavigator;
    ShowNumDBEdit: TDBEdit;
    FileNameNumDBEdit: TDBEdit;
    lblShowNum: TLabel;
    lblFileName: TLabel;
    DeviceDBRadioGroup: TDBRadioGroup;
    cmdShow: TButton;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdShowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmFillMM: TfrmFillMM;
implementation
uses CShow;

{$R *.dfm}

procedure TfrmFillMM.cmdExitClick(Sender: TObject);
begin
Close;
end;

procedure TfrmFillMM.FormCreate(Sender: TObject);
begin
MMTable.Open;
end;

procedure TfrmFillMM.cmdShowClick(Sender: TObject);
begin
frmShow.ShowModal;
end;
end.






CShow.pas程序清单（显示窗体frmShow程序）

unit CShow;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, 
Graphics, Controls, Forms,  Dialogs, StdCtrls,
 ExtCtrls, DB, DBTables, DBCtrls;
type
  TfrmShow = class(TForm)
    cmdShow: TButton;
    radDevice: TRadioGroup;
    optWAV: TRadioButton;
    optAvi: TRadioButton;
    optPCSpeaker: TRadioButton;
    optSequencer: TRadioButton;
    MMDBNavigator: TDBNavigator;
    MMDataSource: TDataSource;
    MMQuery: TQuery;
    ShowNumDBText: TDBText;
    lblShowNum: TLabel;
    FileNameDBText: TDBText;
    lblFileName: TLabel;
    MMQueryShowNum: TFloatField;
    MMQueryDevice: TStringField;
    MMQueryFileName: TStringField;
    procedure cmdShowClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure optWAVClick(Sender: TObject);
    procedure optAviClick(Sender: TObject);
procedure MMDBNavigatorClick(Sender: TObject;
                             Button: TNavigateBtn);
       procedure optSequencerClick(Sender: TObject);
procedure optPCSpeakerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmShow: TfrmShow;
implementation

{$R *.dfm}

procedure TfrmShow.cmdShowClick(Sender: TObject);
begin
Close;
end;

procedure TfrmShow.FormCreate(Sender: TObject);
begin
MMQuery.Open;
MMQuery.Active:=True;
end;

procedure TfrmShow.optWAVClick(Sender: TObject);
begin
MMQuery.DisableControls;
try
   MMQuery.Active:=False;
   MMQuery.Params[0].AsString:='WaveAudio';
   MMQuery.Active:=True;
finally
   MMQuery.EnableControls;
end;
Tegomm1.DeviceType:=MMQueryDevice.Value;
Tegomm1.fileName:=MMQueryFileName.Value;
Tegomm1.Command:='Open';
end;

procedure TfrmShow.optAviClick(Sender: TObject);
begin
MMQuery.DisableControls;
try
   MMQuery.Active:=False;
   MMQuery.Params[0].AsString:='AviVideo';
   MMQuery.Active:=True;
finally
   MMQuery.EnableControls;
end;
Tegomm1.DeviceType:=MMQueryDevice.Value;
Tegomm1.fileName:=MMQueryFileName.Value;
Tegomm1.Command:='Open';

end;

procedure TfrmShow.MMDBNavigatorClick(Sender: TObject;
          Button: TNavigateBtn);
begin
Tegomm1.DeviceType:=MMQueryDevice.Value;
Tegomm1.fileName:=MMQueryFileName.Value;
Tegomm1.Command:='Open';
end;

procedure TfrmShow.optSequencerClick(Sender: TObject);
begin
MMQuery.DisableControls;
try
   MMQuery.Active:=False;
   MMQuery.Params[0].AsString:='Sequencer';
   MMQuery.Active:=True;
finally
   MMQuery.EnableControls;
end;
Tegomm1.DeviceType:=MMQueryDevice.Value;
Tegomm1.fileName:=MMQueryFileName.Value;
Tegomm1.Command:='Open';
end;

procedure TfrmShow.optPCSpeakerClick(Sender: TObject);
begin
  MMQuery.DisableControls;
try
   MMQuery.Active:=False;
   MMQuery.Params[0].AsString:='PCSpeaker';
   MMQuery.Active:=True;
finally
   MMQuery.EnableControls;
end;
Tegomm1.DeviceType:=MMQueryDevice.Value;
Tegomm1.fileName:=MMQueryFileName.Value;
Tegomm1.Command:='Open';
end;
end.