display.pas

来自「本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等」· PAS 代码 · 共 69 行

unit display;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, DB, DBTables;

type
  Tfrmdisplay = class(TForm)
    Labname: TLabel;
    Labpass: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DTfsrq: TDateTimePicker;
    comboxglbmmc: TComboBox;
    comboxyslbmc: TComboBox;
    comboxgsbmmc: TComboBox;
    comboxyskmmc: TComboBox;
    cmdquit: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    comboxglbmdm: TComboBox;
    comboxyslbdm: TComboBox;
    comboxgsbmdm: TComboBox;
    comboxyskmdm: TComboBox;
    comboxpzlbmc: TComboBox;
    comboxpzhm: TComboBox;
    Querykjyw: TQuery;
    comboxywje: TComboBox;
    editbz: TEdit;
    Database1: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pzhm:string;
  end;

var
  frmdisplay: Tfrmdisplay;
implementation

{$R *.dfm}

procedure Tfrmdisplay.FormCreate(Sender: TObject);
begin
    
 // end;
end;

procedure Tfrmdisplay.cmdquitClick(Sender: TObject);
begin
frmdisplay.close;
end;

end.