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

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

Delphi控件源码

开发平台：

Delphi

Xt_Cssds.pas：源码内容
  1. unit Xt_Cssds;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, Grids, DBGridEh, ExtCtrls, StdCtrls, DBCtrlsEh,
  8.   Mask, DBCtrls, Buttons;
  10. type
  11.   TXt_Cssd = class(TForm)
  12.     GroupBox1: TGroupBox;
  13.     Label2: TLabel;
  14.     Label4: TLabel;
  15.     Label35: TLabel;
  16.     Label37: TLabel;
  17.     Label5: TLabel;
  18.     SpeedButton21: TSpeedButton;
  19.     SpeedButton23: TSpeedButton;
  20.     Refresh: TSpeedButton;
  21.     SpeedButton25: TSpeedButton;
  22.     Panel6: TPanel;
  23.     DBGridEh6: TDBGridEh;
  24.     DataSource1: TDataSource;
  25.     ClientDataSet1: TClientDataSet;
  26.     Label3: TLabel;
  27.     DBEditEh1: TDBEditEh;
  28.     DBEditEh3: TDBEditEh;
  29.     DBEditEh5: TDBEditEh;
  30.     DBEditEh2: TDBEditEh;
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure SpeedButton25Click(Sender: TObject);
  33.     procedure RefreshClick(Sender: TObject);
  34.     procedure SpeedButton21Click(Sender: TObject);
  35.     procedure DBEditEh3Exit(Sender: TObject);
  36.     procedure SpeedButton23Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   Xt_Cssd: TXt_Cssd;
  46. implementation
  48. {$R *.dfm}
  50. procedure TXt_Cssd.FormClose(Sender: TObject; var Action: TCloseAction);
  51. begin
  52.  Clientdataset1.Active:=false;
  53.  Action:=cafree;
  54.  xt_Cssd:=Nil;
  55. end;
  57. procedure TXt_Cssd.SpeedButton25Click(Sender: TObject);
  58. begin
  59.  Close;
  60. end;
  62. procedure TXt_Cssd.RefreshClick(Sender: TObject);
  63. begin
  64.  Clientdataset1.Active:=false;
  65.  Clientdataset1.Active:=true;
  66. end;
  68. procedure TXt_Cssd.SpeedButton21Click(Sender: TObject);
  69. begin
  70.  Clientdataset1.Edit;
  71. end;
  73. procedure TXt_Cssd.DBEditEh3Exit(Sender: TObject);
  74. begin
  75.  if Clientdataset1.FieldByName('lb_dmlx').AsBoolean then
  76.    begin
  77.     if length(DbEditeh3.Text)<>1 then
  78.       begin
  79.        dbediteh3.Text:='';
  80.        application.MessageBox('一级编码'+#13#10+'只能输入一位代码','提示',mb_Ok+mb_iconinformation);
  81.        exit;
  82.       end;
  83.     end;  
  84. end;
  86. procedure TXt_Cssd.SpeedButton23Click(Sender: TObject);
  87. var
  88.   Hint,s_dmgz:string;//提示符
  89.   str,str2:string;//用于接收数据
  90.   tempstr:string;//显示编码规则的字符串
  91.   i,j,tempN,s_lbdmcd:Integer;//s_lbdmcd类别代码长度
  92. begin
  93.    str:=DbEditeh3.Text;
  94.    str2:=Clientdataset1.FieldByName('lbjs_sm').AsString;
  95.    s_dmgz:=Clientdataset1.FieldByName('lb_dmgz').AsString;
  96.    s_lbdmcd:=Clientdataset1.FieldByName('lb_dmcd').AsInteger;
  97.  if trim(DBEditeh3.Text)='' then
  98.    begin
  99.     application.MessageBox('类别说明不能为空','提示',mb_ok+mb_iconinformation);
  100.     Exit;
  101.    end;
  102.   if Clientdataset1.FieldByName('lb_dmlx').AsBoolean then
  103.    begin
  104.    if length(DbEditeh3.Text)<>1 then
  105.      begin
  106.       dbediteh3.Text:=str2;
  107.       application.MessageBox('一级编码'+#13#10+'只能输入一位代码','提示',mb_Ok+mb_iconinformation);
  108.       exit;
  109.      end;
  110.    end;
  111.   //验证是否符合规则
  112.   Clientdataset1.Edit;
  113.   for i:=1 to length(str) do
  114.    begin
  115.     for j:=1 to strToInt(str[i]) do
  116.         tempstr:=tempstr+'#';
  117.      if i<length(str) then
  118.         tempstr:=TempStr+'/';
  119.       DbEditeh5.Text:=tempstr;
  120.       tempN:=tempN+strtoINt(str[i]);
  121.       if tempN>s_lbdmcd then
  122.        begin
  123.          hint:='本类别总长度不能超过'+intToStr(s_lbdmcd);
  124.          application.MessageBox(Pchar(Hint),'提示',mb_Ok+mb_iconinformation);
  125.          Dbediteh3.Text:=str2;
  126.          Dbediteh5.Text:=s_dmgz;
  127.          exit;
  128.        end;
  129.    end;
  130.  if Clientdataset1.ApplyUpdates(0)=0 then
  131.   begin
  132.     application.MessageBox('数据修改成功','提示',mb_ok+mb_iconinformation);
  133.   end
  134.  else
  135.   begin
  136.     application.MessageBox('数据修改失败','提示',mb_ok+mb_iconinformation);
  137.     exit;
  138.   end;
  139. end;
  141. end.