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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
f_xshuo.pas
资源名称：ERP人力资源管理系统毕业设计.rar　[点击查看]
上传用户：lcqxtx
上传日期：2013-02-15
资源大小：530k
文件大小：1k
源码类别：

企业管理

开发平台：

Delphi

f_xshuo.pas：源码内容
  1. unit f_xshuo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, ExtCtrls;
  9. type
  10.   Tw_xshuo = class(TForm)
  11.     Panel1: TPanel;
  12.     Label1: TLabel;
  13.     DataSource1: TDataSource;
  14.     ado_xshou: TADOQuery;
  15.     DBNavigator1: TDBNavigator;
  16.     ado_xshous_bh: TStringField;
  17.     ado_xshous_dw: TStringField;
  18.     ado_xshous_dz: TStringField;
  19.     ado_xshous_sq: TStringField;
  20.     ado_xshous_stime: TDateTimeField;
  21.     ado_xshous_xtime: TDateTimeField;
  22.     Label2: TLabel;
  23.     DBEdit1: TDBEdit;
  24.     Label3: TLabel;
  25.     DBEdit2: TDBEdit;
  26.     Label4: TLabel;
  27.     DBEdit3: TDBEdit;
  28.     Label5: TLabel;
  29.     DBEdit4: TDBEdit;
  30.     Label6: TLabel;
  31.     DBEdit5: TDBEdit;
  32.     Label7: TLabel;
  33.     DBEdit6: TDBEdit;
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  42. var
  43.   w_xshuo: Tw_xshuo;
  45. implementation
  47. uses f_main;
  49. {$R *.dfm}
  51. procedure Tw_xshuo.FormCreate(Sender: TObject);
  52. begin
  53. w_main.Enabled:=false;
  54. end;
  56. procedure Tw_xshuo.FormClose(Sender: TObject; var Action: TCloseAction);
  57. begin
  58. w_main.Enabled:=true;
  59. end;
  61. end.