gtlh_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit gtlh_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, adobase_un, ADODB, DB, wwDialog, wwidlg, bsMessages, bsSkinData,
  BusinessSkinForm, ActnList, ExtCtrls, bsSkinCtrls, bsSkinGrids,
  bsDBGrids, bsdbctrls, StdCtrls;

type
  Tgtlh_frm = class(Tadobase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBText1: TbsSkinDBText;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gtlh_frm: Tgtlh_frm;

implementation

{$R *.dfm}

procedure Tgtlh_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinGroupBox3.Enabled:=false;
end;

end.