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

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

Delphi控件源码

开发平台：

Delphi

xt_lbjss.~pas：源码内容
  1. unit xt_lbjss;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, StdCtrls, Buttons, TFlatEditUnit, TFlatSpinEditUnit,
  8.   Mask, DBCtrlsEh, DB, Spin, DBLookupEh, DBClient, TFlatMaskEditUnit;
  10. type
  11.   Txt_lbjs = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     Label1: TLabel;
  16.     GroupBox1: TGroupBox;
  17.     GroupBox2: TGroupBox;
  18.     Label2: TLabel;
  19.     Edit1: TEdit;
  20.     SpeedButton1: TSpeedButton;
  21.     SpeedButton2: TSpeedButton;
  22.     Memo1: TMemo;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     Label5: TLabel;
  26.     Label6: TLabel;
  27.     Label7: TLabel;
  28.     Label8: TLabel;
  29.     Memo2: TMemo;
  30.     Label9: TLabel;
  31.     DBNumberEditEh1: TDBNumberEditEh;
  32.     DataSource1: TDataSource;
  33.     lbjs: TDataSource;
  34.     bm1: TSpinEdit;
  35.     bm2: TSpinEdit;
  36.     bm3: TSpinEdit;
  37.     bm4: TSpinEdit;
  38.     bm5: TSpinEdit;
  39.     bm6: TSpinEdit;
  40.     ComboBox1: TComboBox;
  41.     ClientDataSet1: TClientDataSet;
  42.     procedure SpeedButton2Click(Sender: TObject);
  43.     procedure FormCreate(Sender: TObject);
  44.     procedure bm2Change(Sender: TObject);
  45.     procedure bm3Change(Sender: TObject);
  46.     procedure bm4Change(Sender: TObject);
  47.     procedure bm5Change(Sender: TObject);
  48.     procedure bm6Change(Sender: TObject);
  49.     procedure ComboBox1Change(Sender: TObject);
  50.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  51.     procedure Edit1Change(Sender: TObject);
  52.     procedure bm1Click(Sender: TObject);
  53.   private
  54.     { Private declarations }
  55.     Procedure btn_valid;
  56.   public
  57.     { Public declarations }
  58.   end;
  60. var
  61.   xt_lbjs: Txt_lbjs;
  62.   s1,s2,s3,s4,s5,s6:string;
  63.   i:integer;
  64. const ss:array[0..13] of string=('sz_ajlb','sz_bgqx','sz_bm','sz_qz','sz_jyfs',
  65.     'sz_jymd','sz_kw','sz_mj','sz_wjlb','sz_xtajlb','sz_yg',
  66.     'sz_zjlb','sz_ztcl','sz_ztlb');
  67. implementation
  68. uses dms;
  69. {$R *.dfm}
  70. procedure Txt_lbjs.btn_valid;
  71. begin
  72.   if (combobox1.Text='案卷类别代码') or (combobox1.Text='库位代码')or(combobox1.text='部门代码')
  73.     or (combobox1.Text='文件类别代码') or (combobox1.Text='主题词类别代码') or (combobox1.Text='员工代码') then
  74.  begin
  75.    memo1.Visible:=true;
  76.    memo2.Visible:=false;
  77.    bm1.Enabled:=true;
  78.    bm2.Enabled:=true;
  79.    bm3.Enabled:=true;
  80.    bm4.Enabled:=true;
  81.    bm5.Enabled:=true;
  82.    bm6.Enabled:=true;
  83.  end
  84.  else
  85.  begin
  86.    memo2.Visible:=true;
  87.    memo1.Visible:=false;
  88.    bm1.Enabled:=true;
  89.    bm2.Enabled:=false;
  90.    bm3.Enabled:=false;
  91.    bm4.Enabled:=false;
  92.    bm5.Enabled:=false;
  93.    bm6.Enabled:=false;
  94.  end;
  95. end;
  96. procedure Txt_lbjs.SpeedButton2Click(Sender: TObject);
  97. begin
  98.   close;
  99. end;
  101. procedure Txt_lbjs.FormCreate(Sender: TObject);
  102. var ss:string;
  103. begin
  104.   dm.xt_lbjs.Active:=true;
  105.   dm.xt_ajcs.Active:=true;
  106.   with combobox1.Items do
  107.   begin
  108.     add('案卷类别代码');
  109.     add('保管期限代码');
  110.     add('部门代码');
  111.     add('全宗代码');
  112.     add('借阅方式代码');
  113.     add('借阅目的代码');
  114.     add('库位代码');
  115.     add('密级代码');
  116.     add('文件类别代码');
  117.     add('系统案卷类别代码');
  118.     add('员工代码');
  119.     add('证件类别代码');
  120.     add('主题词类别代码');
  121.     add('载体类别代码');
  122.   end;
  123. end;
  125. procedure Txt_lbjs.bm2Change(Sender: TObject);
  126. begin
  127.  { s2:='';
  128.   for i:=0 to bm2.Value-1 do
  129.   begin
  130.      s2:=s2+'#';
  131.   end;}
  132. end;
  135. procedure Txt_lbjs.bm3Change(Sender: TObject);
  136. begin
  137.  {  s3:='';
  138.  for i:=0 to bm3.Value-1 do
  139.   begin
  140.      s3:=s3+'#';
  141.   end;}
  142. end;
  144. procedure Txt_lbjs.bm4Change(Sender: TObject);
  145. begin
  146.  { s4:='';
  147.  for i:=0 to bm4.Value-1 do
  148.   begin
  149.      s4:=s4+'#';
  150.   end;}
  151. end;
  153. procedure Txt_lbjs.bm5Change(Sender: TObject);
  154. begin
  155.  { s5:='';
  156.  for i:=0 to bm5.Value-1 do
  157.   begin
  158.      s5:=s5+'#';
  159.   end; }
  160. end;
  162. procedure Txt_lbjs.bm6Change(Sender: TObject);
  163. begin
  164.  {s6:='';
  165.  for i:=0 to bm6.Value-1 do
  166.   begin
  167.      s6:=s6+'#';
  168.   end;}
  169. end;
  173. procedure Txt_lbjs.ComboBox1Change(Sender: TObject);
  174. var
  175.  s_index,s_lbjs_sm:string;
  176.  K,N_Length:integer;//代码说明长度
  177. begin
  178.   s_Index:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  179.   Btn_valid;//调用代码编辑按钮可否用的过程
  180.   Clientdataset1.Close;
  181.   Clientdataset1.CommandText:='select * from xt_lbjs where lb_dm='+''''+s_index+''''+'';
  182.   Clientdataset1.Open;
  183.   edit1.Text:=Clientdataset1.fieldbyname('lb_dmgz').AsString;
  184.   s_lbjs_sm:=Clientdataset1.fieldbyname('lbjs_sm').AsString;
  185.   N_Length:=length(Clientdataset1.fieldbyname('lbjs_sm').AsString);
  186.   for K:=0 to N_length do
  187.    begin
  188.      bm1.Text:=s_lbjs_sm[1];
  189.      bm1.Text:=s_lbjs_sm[2];
  190.      bm1.Text:=s_lbjs_sm[3];
  191.      bm1.Text:=s_lbjs_sm[4];
  192.      bm1.Text:=s_lbjs_sm[5];
  193.      bm1.Text:=s_lbjs_sm[6];
  194.    end;
  195. end;
  197. procedure Txt_lbjs.FormClose(Sender: TObject; var Action: TCloseAction);
  198. begin
  199.   dm.xt_lbjs.Active:=false;
  200.   action:=cafree;
  201.   xt_lbjs:=nil;
  202. end;
  204. procedure Txt_lbjs.Edit1Change(Sender: TObject);
  205. begin
  206.   //edit1.Text:=s1+'/'+s2+'/'+s3+'/'+s4+'/'+s5+'/'+s6;
  207. end;
  209. procedure Txt_lbjs.bm1Click(Sender: TObject);
  210. begin
  211.   s1:='';
  212.   for i:=0 to bm1.Value-1 do
  213.   begin
  214.      s1:=s1+'#';
  215.   end;
  216. end;
  218. end.