sz_ygs.pas
上传用户:szruida
上传日期:2007-06-01
资源大小:6518k
文件大小:2k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit sz_ygs;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, Menus, ActnList, DB, XPBarMenu, Grids, DBGridEh, StdCtrls, Mask,
  6.   DBCtrls, ComCtrls, ExtCtrls, ToolWin;
  7. type
  8.   Tsz_yg = class(TForm)
  9.     CoolBar1: TCoolBar;
  10.     ToolBar1: TToolBar;
  11.     add1: TToolButton;
  12.     ToolButton5: TToolButton;
  13.     ToolButton6: TToolButton;
  14.     ToolButton7: TToolButton;
  15.     ToolButton4: TToolButton;
  16.     ToolButton2: TToolButton;
  17.     ToolButton3: TToolButton;
  18.     Panel1: TPanel;
  19.     Splitter1: TSplitter;
  20.     Panel2: TPanel;
  21.     TreeView1: TTreeView;
  22.     Panel3: TPanel;
  23.     Splitter2: TSplitter;
  24.     Panel4: TPanel;
  25.     Label8: TLabel;
  26.     Label9: TLabel;
  27.     Label10: TLabel;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     Label4: TLabel;
  32.     Edit1: TEdit;
  33.     DBEdit1: TDBEdit;
  34.     DBEdit2: TDBEdit;
  35.     DBEdit3: TDBEdit;
  36.     DBEdit4: TDBEdit;
  37.     Panel5: TPanel;
  38.     GroupBox2: TGroupBox;
  39.     DBGridEh1: TDBGridEh;
  40.     XPBarMenu1: TXPBarMenu;
  41.     DataSource1: TDataSource;
  42.     ActionList1: TActionList;
  43.     Add: TAction;
  44.     Edit: TAction;
  45.     Delete: TAction;
  46.     Save: TAction;
  47.     Refresh: TAction;
  48.     Print: TAction;
  49.     Quit: TAction;
  50.     PopupMenu1: TPopupMenu;
  51.     N1: TMenuItem;
  52.     N2: TMenuItem;
  53.     N3: TMenuItem;
  54.     N4: TMenuItem;
  55.     N5: TMenuItem;
  56.     N6: TMenuItem;
  57.     sz_yg: TDataSource;
  58.   private
  59.     { Private declarations }
  60.   public
  61.     { Public declarations }
  62.   end;
  63. var
  64.   sz_yg: Tsz_yg;
  65. implementation
  66. uses dms,u_public;
  67. {$R *.dfm}
  68. end.