开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
am_wjgl_Lls.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

am_wjgl_Lls.pas：源码内容
  1. unit am_wjgl_Lls;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, DBCtrlsEh, DBLookupEh, DBCtrls, Mask,
  8.   ExtCtrls;
  10. type
  11.   Tam_wjgl_LL = class(TForm)
  12.     Panel1: TPanel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Label4: TLabel;
  16.     Label6: TLabel;
  17.     Label7: TLabel;
  18.     Label8: TLabel;
  19.     Label9: TLabel;
  20.     Label10: TLabel;
  21.     Label11: TLabel;
  22.     Label12: TLabel;
  23.     Label13: TLabel;
  24.     Label14: TLabel;
  25.     Label15: TLabel;
  26.     Label16: TLabel;
  27.     Label17: TLabel;
  28.     Label18: TLabel;
  29.     Label19: TLabel;
  30.     Label20: TLabel;
  31.     Label3: TLabel;
  32.     Label5: TLabel;
  33.     SpeedButton1: TSpeedButton;
  34.     SpeedButton2: TSpeedButton;
  35.     DBEdit4: TDBEdit;
  36.     DBEdit6: TDBEdit;
  37.     DBEdit7: TDBEdit;
  38.     DBEdit8: TDBEdit;
  39.     DBEdit9: TDBEdit;
  40.     DBEdit14: TDBEdit;
  41.     DBEdit15: TDBEdit;
  42.     DBEdit18: TDBEdit;
  43.     DBEdit19: TDBEdit;
  44.     DBEdit20: TDBEdit;
  45.     DBMemo1: TDBMemo;
  46.     DBMemo2: TDBMemo;
  47.     DBMemo3: TDBMemo;
  48.     DBEditEh1: TDBEditEh;
  49.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  50.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  51.     DBDateTimeEditEh1: TDBDateTimeEditEh;
  52.     DBDateTimeEditEh2: TDBDateTimeEditEh;
  53.     DBLookupComboboxEh3: TDBLookupComboboxEh;
  54.     DBEdit1: TDBEdit;
  55.     Panel2: TPanel;
  56.     Quit: TBitBtn;
  57.     Add: TBitBtn;
  58.     procedure QuitClick(Sender: TObject);
  59.   private
  60.     { Private declarations }
  61.   public
  62.     { Public declarations }
  63.   end;
  65. var
  66.   am_wjgl_LL: Tam_wjgl_LL;
  68. implementation
  69. uses dms,u_public;
  70. {$R *.dfm}
  72. procedure Tam_wjgl_LL.QuitClick(Sender: TObject);
  73. begin
  74.   close;
  75. end;
  77. end.