mc_sfyl.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_SFYL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Buttons, Grids, DBGrids, ExtCtrls, Db, DBTables;

type
  TSFYL = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet4: TTabSheet;
    BitBtn1: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TFloatField;
    Query1BDEDesigner5: TDateTimeField;
    Query1BDEDesigner6: TDateTimeField;
    Query1BDEDesigner7: TIntegerField;
    Query1BDEDesigner8: TIntegerField;
    Query1BDEDesigner9: TIntegerField;
    Query1BDEDesigner10: TFloatField;
    Query1BDEDesigner11: TFloatField;
    Query1BDEDesigner12: TFloatField;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2BDEDesigner: TStringField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TFloatField;
    Query2BDEDesigner5: TDateTimeField;
    Query2BDEDesigner6: TDateTimeField;
    Query2BDEDesigner7: TIntegerField;
    Query2BDEDesigner8: TIntegerField;
    Query2BDEDesigner9: TIntegerField;
    Query2BDEDesigner10: TFloatField;
    Query2BDEDesigner11: TFloatField;
    Query2BDEDesigner12: TFloatField;
    Query3: TQuery;
    DataSource3: TDataSource;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Query4: TQuery;
    Query5: TQuery;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SFYL: TSFYL;

implementation

uses MC_DLOptions;

{$R *.DFM}

procedure TSFYL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     SFYL.Release;
     SFYL:=Nil;
end;

procedure TSFYL.BitBtn2Click(Sender: TObject);
begin
     Close;
end;

procedure TSFYL.BitBtn1Click(Sender: TObject);
begin
     if not Assigned(DLOptions) then
        begin
             DLOptions:=TDLOptions.Create(Self);
             DLOptions.ShowModal;
        end;
end;

end.