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

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

Delphi控件源码

开发平台：

Delphi

sz_xtajlbs.~pas：源码内容
  1. unit sz_xtajlbs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, DB, Mask, DBCtrls, DBCtrlsEh, Grids, DBGridEh,
  8.   ExtCtrls, Buttons;
  10. type
  11.   Tsz_xtajlb = class(TForm)
  12.     GroupBox1: TGroupBox;
  13.     Label1: TLabel;
  14.     DBEdit1: TDBEdit;
  15.     DataSource1: TDataSource;
  16.     Label2: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label3: TLabel;
  19.     Label4: TLabel;
  20.     DBEdit4: TDBEdit;
  21.     Label35: TLabel;
  22.     Edit1: TEdit;
  23.     Label36: TLabel;
  24.     Label37: TLabel;
  25.     DBCheckBoxEh1: TDBCheckBoxEh;
  26.     Label5: TLabel;
  27.     Panel6: TPanel;
  28.     DBGridEh6: TDBGridEh;
  29.     SpeedButton19: TSpeedButton;
  30.     SpeedButton21: TSpeedButton;
  31.     SpeedButton22: TSpeedButton;
  32.     SpeedButton23: TSpeedButton;
  33.     Refresh: TSpeedButton;
  34.     SpeedButton25: TSpeedButton;
  35.     procedure SpeedButton25Click(Sender: TObject);
  36.     procedure RefreshClick(Sender: TObject);
  37.     procedure SpeedButton19Click(Sender: TObject);
  38.     procedure SpeedButton21Click(Sender: TObject);
  39.     procedure SpeedButton22Click(Sender: TObject);
  40.     procedure SpeedButton23Click(Sender: TObject);
  41.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  50. var
  51.   sz_xtajlb: Tsz_xtajlb;
  52. implementation
  54. uses DMs;
  56. {$R *.dfm}
  58. procedure Tsz_xtajlb.SpeedButton25Click(Sender: TObject);
  59. begin
  60.  close;
  61. end;
  63. procedure Tsz_xtajlb.RefreshClick(Sender: TObject);
  64. begin
  65.  dm.sz_xtajlb.Close;
  66.  dm.sz_xtajlb.CommandText:='Select * from sz_xtajlb';
  67.  dm.sz_xtajlb.Open;
  68. end;
  70. procedure Tsz_xtajlb.SpeedButton19Click(Sender: TObject);
  71. begin
  72.   dm.sz_xtajlb.Close;
  73.   dm.sz_xtajlb.CommandText:='select * from sz_xtajlb where xt_dm='+''''+''''+'';
  74.   dm.sz_xtajlb.Open;
  75.   DbEdit1.SetFocus;
  76.   DBCheckboxEh1.Checked:=true;
  77. end;
  79. procedure Tsz_xtajlb.SpeedButton21Click(Sender: TObject);
  80. begin
  81.  dm.sz_xtajlb.Edit;
  82.  DbEDit1.SetFocus;
  83. end;
  85. procedure Tsz_xtajlb.SpeedButton22Click(Sender: TObject);
  86. begin
  87.  if datasource1.DataSet.RecordCount=0 then
  88.   begin
  89.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconquestion);
  90.      exit;
  91.   end
  92.   else
  93.   if application.MessageBox('您确定要删除？','警告',mb_okcancel+mb_iconquestion)=idok then
  94.   begin
  95.       dm.sz_xtajlb.Delete;
  96.       dm.sz_xtajlb.ApplyUpdates(0);
  97.       Refresh.Click;
  98.   end
  99.   else
  100.       datasource1.DataSet.Cancel;
  101. end;
  103. procedure Tsz_xtajlb.SpeedButton23Click(Sender: TObject);
  104. var i:integer;
  105.     hint:string;
  106. begin
  107.  if DbEdit1.Text='' then
  108.   begin
  109.      application.MessageBox('系统案卷类别代码不可为空','提示',mb_ok+mb_iconinformation);
  110.      exit;
  111.   end;
  112.   if DbEdit2.Text='' then
  113.   begin
  114.      application.MessageBox('系统案卷类别名称不可为空','提示',mb_ok+mb_iconinformation);
  115.      exit;
  116.   end;
  117.   if DbCheckboxEh1.State=cbGrayed then
  118.   begin
  119.      application.MessageBox('归档案卷可否编辑必选','提示',mb_ok+mb_iconinformation);
  120.      exit;
  121.   end;
  122.   if length(trim(DbEdit1.Text))<>length(Edit1.Text) then
  123.   begin
  124.      hint:='请输入'+inttoStr(length(Edit1.Text))+'位代码';
  125.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  126.      exit;
  127.   end;
  128.   //------------以上为判断不符合条件的情况
  129.   if dm.sz_xtajlb.FieldByName('xt_kfbj').AsBoolean then
  130.       dm.sz_xtajlb.FieldByName('xt_kfbj_sm').AsString:='可以编辑'
  131.    else
  132.      dm.sz_xtajlb.FieldByName('xt_kfbj_sm').AsString:='不可以编辑';
  133.   dm.sz_xtajlb.ApplyUpdates(0);
  134.   i:=dm.sz_xtajlb.ApplyUpdates(0);
  135.   if i=0  then
  136.   begin
  137.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  138.     Refresh.Click;
  139.   end
  140.   else
  141.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  142. end;
  145. procedure Tsz_xtajlb.FormClose(Sender: TObject; var Action: TCloseAction);
  146. begin
  147.   dm.sz_xtajlb.Active:=false;
  148.   action:=cafree;
  149.   sz_xtajlb:=nil;
  150. end;
  152. procedure Tsz_xtajlb.FormCreate(Sender: TObject);
  153. begin
  154.   dm.sz_xtajlb.Active:=true;
  155.   Dm.xt_lbjs.Close;
  156.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_xtajlb'+''''+'';
  157.   Dm.xt_lbjs.Open;
  158.   edit1.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  159.   DBCheckboxEh1.Checked:=true;
  160. end;
  162. procedure Tsz_xtajlb.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  163. begin
  164.   if key=#13 then
  165.      Dbedit2.SetFocus;
  166. end;
  168. end.