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

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

Delphi控件源码

开发平台：

Delphi

sz_dmgls.~pas：源码内容
  1. unit sz_dmgls;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, Grids, DBGridEh, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls,
  8.   ComCtrls;
  10. type
  11.   Tsz_dmgl = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     TabSheet2: TTabSheet;
  19.     Label5: TLabel;
  20.     Label6: TLabel;
  21.     Label7: TLabel;
  22.     Label8: TLabel;
  23.     DBEdit4: TDBEdit;
  24.     DBEdit5: TDBEdit;
  25.     DBEdit6: TDBEdit;
  26.     Edit2: TEdit;
  27.     DataSource1: TDataSource;
  28.     DBEdit1: TDBEdit;
  29.     DBEdit2: TDBEdit;
  30.     DBEdit3: TDBEdit;
  31.     Edit1: TEdit;
  32.     Panel1: TPanel;
  33.     DBGridEh1: TDBGridEh;
  34.     Add: TBitBtn;
  35.     Delete: TBitBtn;
  36.     Quit: TBitBtn;
  37.     BitBtn1: TBitBtn;
  38.     BitBtn3: TBitBtn;
  39.     BitBtn4: TBitBtn;
  40.     Panel2: TPanel;
  41.     DBGridEh2: TDBGridEh;
  42.     DataSource2: TDataSource;
  43.     Label9: TLabel;
  44.     Label10: TLabel;
  45.     Label11: TLabel;
  46.     SpeedButton1: TSpeedButton;
  47.     Label12: TLabel;
  48.     Label13: TLabel;
  49.     SpeedButton2: TSpeedButton;
  50.     SpeedButton3: TSpeedButton;
  51.     SpeedButton4: TSpeedButton;
  52.     Refresh: TSpeedButton;
  53.     Refresh2: TSpeedButton;
  54.     TabSheet3: TTabSheet;
  55.     Label15: TLabel;
  56.     DBEdit7: TDBEdit;
  57.     DataSource3: TDataSource;
  58.     Label16: TLabel;
  59.     DBEdit8: TDBEdit;
  60.     Label17: TLabel;
  61.     DBEdit9: TDBEdit;
  62.     Panel3: TPanel;
  63.     DBGridEh3: TDBGridEh;
  64.     SpeedButton5: TSpeedButton;
  65.     SpeedButton6: TSpeedButton;
  66.     SpeedButton7: TSpeedButton;
  67.     SpeedButton8: TSpeedButton;
  68.     Refresh3: TSpeedButton;
  69.     SpeedButton10: TSpeedButton;
  70.     Label18: TLabel;
  71.     Label19: TLabel;
  72.     Label21: TLabel;
  73.     Edit3: TEdit;
  74.     TabSheet4: TTabSheet;
  75.     Label22: TLabel;
  76.     DBEdit10: TDBEdit;
  77.     Label23: TLabel;
  78.     DBEdit11: TDBEdit;
  79.     Label24: TLabel;
  80.     DBEdit12: TDBEdit;
  81.     Label25: TLabel;
  82.     Edit4: TEdit;
  83.     Label20: TLabel;
  84.     Label26: TLabel;
  85.     Panel4: TPanel;
  86.     DBGridEh4: TDBGridEh;
  87.     SpeedButton9: TSpeedButton;
  88.     SpeedButton11: TSpeedButton;
  89.     SpeedButton12: TSpeedButton;
  90.     SpeedButton13: TSpeedButton;
  91.     Refresh4: TSpeedButton;
  92.     SpeedButton15: TSpeedButton;
  93.     DataSource4: TDataSource;
  94.     TabSheet5: TTabSheet;
  95.     Label14: TLabel;
  96.     DBEdit13: TDBEdit;
  97.     DataSource5: TDataSource;
  98.     Label27: TLabel;
  99.     DBEdit14: TDBEdit;
  100.     Label28: TLabel;
  101.     DBEdit15: TDBEdit;
  102.     Label29: TLabel;
  103.     Edit5: TEdit;
  104.     Label30: TLabel;
  105.     Label31: TLabel;
  106.     Panel5: TPanel;
  107.     DBGridEh5: TDBGridEh;
  108.     SpeedButton14: TSpeedButton;
  109.     SpeedButton16: TSpeedButton;
  110.     SpeedButton17: TSpeedButton;
  111.     SpeedButton18: TSpeedButton;
  112.     Refresh5: TSpeedButton;
  113.     SpeedButton20: TSpeedButton;
  114.     TabSheet6: TTabSheet;
  115.     Label32: TLabel;
  116.     DBEdit16: TDBEdit;
  117.     DataSource6: TDataSource;
  118.     Label33: TLabel;
  119.     DBEdit17: TDBEdit;
  120.     Label34: TLabel;
  121.     DBEdit18: TDBEdit;
  122.     Label35: TLabel;
  123.     Edit6: TEdit;
  124.     Label36: TLabel;
  125.     Label37: TLabel;
  126.     Panel6: TPanel;
  127.     DBGridEh6: TDBGridEh;
  128.     SpeedButton19: TSpeedButton;
  129.     SpeedButton21: TSpeedButton;
  130.     SpeedButton22: TSpeedButton;
  131.     SpeedButton23: TSpeedButton;
  132.     Refresh6: TSpeedButton;
  133.     SpeedButton25: TSpeedButton;
  134.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  135.     procedure SpeedButton1Click(Sender: TObject);
  136.     procedure AddClick(Sender: TObject);
  137.     procedure DeleteClick(Sender: TObject);
  138.     procedure BitBtn1Click(Sender: TObject);
  139.     procedure SpeedButton4Click(Sender: TObject);
  140.     procedure BitBtn3Click(Sender: TObject);
  141.     procedure SpeedButton2Click(Sender: TObject);
  142.     procedure FormCreate(Sender: TObject);
  143.     procedure RefreshClick(Sender: TObject);
  144.     procedure Refresh2Click(Sender: TObject);
  145.     procedure SpeedButton10Click(Sender: TObject);
  146.     procedure Refresh3Click(Sender: TObject);
  147.     procedure SpeedButton5Click(Sender: TObject);
  148.     procedure SpeedButton6Click(Sender: TObject);
  149.     procedure SpeedButton7Click(Sender: TObject);
  150.     procedure SpeedButton8Click(Sender: TObject);
  151.     procedure SpeedButton15Click(Sender: TObject);
  152.     procedure SpeedButton9Click(Sender: TObject);
  153.     procedure SpeedButton11Click(Sender: TObject);
  154.     procedure SpeedButton12Click(Sender: TObject);
  155.     procedure SpeedButton13Click(Sender: TObject);
  156.     procedure Refresh4Click(Sender: TObject);
  157.     procedure SpeedButton3Click(Sender: TObject);
  158.     procedure SpeedButton20Click(Sender: TObject);
  159.     procedure SpeedButton14Click(Sender: TObject);
  160.     procedure SpeedButton16Click(Sender: TObject);
  161.     procedure SpeedButton17Click(Sender: TObject);
  162.     procedure SpeedButton18Click(Sender: TObject);
  163.     procedure Refresh5Click(Sender: TObject);
  164.     procedure SpeedButton25Click(Sender: TObject);
  165.     procedure SpeedButton19Click(Sender: TObject);
  166.     procedure SpeedButton21Click(Sender: TObject);
  167.     procedure SpeedButton22Click(Sender: TObject);
  168.     procedure SpeedButton23Click(Sender: TObject);
  169.     procedure Refresh6Click(Sender: TObject);
  170.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  171.     procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
  172.     procedure BitBtn4Click(Sender: TObject);
  173.     procedure QuitClick(Sender: TObject);
  174.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  175.     procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
  176.     procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
  177.     procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
  178.     procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
  179.     procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
  180.     procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
  181.     procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
  182.     procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
  183.     procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
  184.     procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
  185.   private
  186.     { Private declarations }
  188.   public
  189.     { Public declarations }
  190.   end;
  192. var
  193.   sz_dmgl: Tsz_dmgl;
  195. implementation
  197. uses DMs,mainfrms;
  199. {$R *.dfm}
  202. procedure Tsz_dmgl.FormClose(Sender: TObject; var Action: TCloseAction);
  203. begin
  204.   action:=cafree;
  205.   sz_dmgl:=nil;
  206.   //释放数据集
  207.   dm.sz_bgqx.Active:=false;
  208.   dm.sz_mj.Active:=false;
  209.   dm.sz_jyfs.Active:=false;
  210.   dm.sz_jymd.Active:=false;
  211.   dm.sz_ztlb.Active:=false;
  212.   dm.sz_zjlb.Active:=false;
  213. end;
  215. procedure Tsz_dmgl.SpeedButton1Click(Sender: TObject);
  216. var i:integer;
  217. begin
  218.  if DbEdit1.Text='' then
  219.   begin
  220.      application.MessageBox('保管期限代码不可为空','提示',mb_ok+mb_iconinformation);
  221.      exit;
  222.   end;
  223.   if DbEdit2.Text='' then
  224.   begin
  225.      application.MessageBox('保管期限名称不可为空','提示',mb_ok+mb_iconinformation);
  226.      exit;
  227.   end;
  228.   if DbEdit3.Text='' then
  229.   begin
  230.      application.MessageBox('保管年限不可为空','提示',mb_ok+mb_iconinformation);
  231.      exit;
  232.   end;
  233.   if length(trim(DbEdit1.Text))<>length(Edit1.Text) then
  234.   begin
  235.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  236.      exit;
  237.   end;
  238.   //------------以上为判断不符合条件的情况
  239.    dm.sz_bgqx.ApplyUpdates(0);
  240.   i:=dm.sz_bgqx.ApplyUpdates(0);
  241.   if i=0  then
  242.   begin
  243.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  244.     Refresh.Click;
  245.   end
  246.   else
  247.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation)
  248. end;
  250. procedure Tsz_dmgl.AddClick(Sender: TObject);
  251. begin
  252.   dm.sz_bgqx.Close;
  253.   dm.sz_bgqx.CommandText:='select * from sz_bgqx where bgqx_dm='+''''+''''+'';
  254.   dm.sz_bgqx.Open;
  255.   DbEdit1.SetFocus;
  256. end;
  258. procedure Tsz_dmgl.DeleteClick(Sender: TObject);
  259. begin
  260.   if datasource1.DataSet.RecordCount=0 then
  261.   begin
  262.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  263.      exit;
  264.   end
  265.   else
  266.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  267.   begin
  268.     dm.sz_bgqx.Delete;
  269.     dm.sz_bgqx.ApplyUpdates(0);
  270.   end
  271.    else
  272.        datasource1.DataSet.Cancel;
  273. end;
  275. procedure Tsz_dmgl.BitBtn1Click(Sender: TObject);
  276. begin
  277.   dm.sz_mj.Close;
  278.   dm.sz_mj.CommandText:='select * from sz_mj where mj_dm='+''''+''''+'';
  279.   dm.sz_mj.Open;
  280.   DbEdit4.SetFocus;
  281. end;
  283. procedure Tsz_dmgl.SpeedButton4Click(Sender: TObject);
  284. begin
  285.  datasource2.DataSet.edit;
  286.  DbEdit4.SetFocus;
  287. end;
  289. procedure Tsz_dmgl.BitBtn3Click(Sender: TObject);
  290. begin
  291.   if datasource2.DataSet.RecordCount=0 then
  292.   begin
  293.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  294.      exit;
  295.   end
  296.   else
  297.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  298.   begin
  299.       datasource2.DataSet.Delete;
  300.       dm.sz_mj.ApplyUpdates(0);
  301.   end
  302.   else
  303.       datasource2.DataSet.Cancel;
  304. end;
  306. procedure Tsz_dmgl.SpeedButton2Click(Sender: TObject);
  307. var i:integer;
  308. begin
  309.  if DbEdit4.Text='' then
  310.   begin
  311.      application.MessageBox('密级代码不可为空','提示',mb_ok+mb_iconinformation);
  312.      exit;
  313.   end;
  314.   if DbEdit5.Text='' then
  315.   begin
  316.      application.MessageBox('密级名称不可为空','提示',mb_ok+mb_iconinformation);
  317.      exit;
  318.   end;
  319.   if length(trim(DbEdit4.Text))<>length(Edit2.Text) then
  320.   begin
  321.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  322.      exit;
  323.   end;
  324.   //------------以上为判断不符合条件的情况
  325.  dm.sz_mj.ApplyUpdates(0);
  326.   i:=dm.sz_mj.ApplyUpdates(0);
  327.   if i=0  then
  328.   begin
  329.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  330.     Refresh2.click;
  331.   end
  332.   else
  333.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation)
  334. end;
  336. procedure Tsz_dmgl.FormCreate(Sender: TObject);
  337. begin
  338.    dm.sz_bgqx.Active:=true;
  339.    dm.sz_mj.Active:=true;
  340.    dm.sz_jyfs.Active:=true;
  341.    dm.sz_jymd.Active:=true;
  342.    dm.sz_ztlb.Active:=true;
  343.    dm.sz_zjlb.Active:=true;
  344.   //-------------保管期限
  345.   Dm.xt_lbjs.Close;
  346.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_bgqx'+''''+'';
  347.   Dm.xt_lbjs.Open;
  348.   edit1.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  349.   //-------------密级
  350.   Dm.xt_lbjs.Close;
  351.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_mj'+''''+'';
  352.   Dm.xt_lbjs.Open;
  353.   edit2.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  354.   //-------------借阅方式
  355.   Dm.xt_lbjs.Close;
  356.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_jyfs'+''''+'';
  357.   Dm.xt_lbjs.Open;
  358.   edit3.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  359. //---------------借阅目的
  360.   Dm.xt_lbjs.Close;
  361.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_jymd'+''''+'';
  362.   Dm.xt_lbjs.Open;
  363.   edit4.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  364. //---------------载体类别
  365.   Dm.xt_lbjs.Close;
  366.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_ztlb'+''''+'';
  367.   Dm.xt_lbjs.Open;
  368.   edit5.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  369. //------------证件类别
  370.   Dm.xt_lbjs.Close;
  371.   Dm.xt_lbjs.CommandText:='Select lb_dmgz,lbjs_sm from xt_lbjs where lb_dm='+''''+'sz_zjlb'+''''+'';
  372.   Dm.xt_lbjs.Open;
  373.   edit6.Text:=dm.xt_lbjs.fieldbyname('lb_dmgz').asstring;
  374. end;
  376. procedure Tsz_dmgl.RefreshClick(Sender: TObject);
  377. begin
  378.   dm.sz_bgqx.Close;
  379.   dm.sz_bgqx.CommandText:='select * from sz_bgqx';
  380.   dm.sz_bgqx.Open;
  381. end;
  383. procedure Tsz_dmgl.Refresh2Click(Sender: TObject);
  384. begin
  385.  dm.sz_mj.Close;
  386.  dm.sz_mj.CommandText:='select * from sz_mj';
  387.  dm.sz_mj.Open;
  388. end;
  390. procedure Tsz_dmgl.SpeedButton10Click(Sender: TObject);
  391. begin
  392.  close;
  393. end;
  395. procedure Tsz_dmgl.Refresh3Click(Sender: TObject);
  396. begin
  397.   dm.sz_jyfs.Close;
  398.   dm.sz_jyfs.CommandText:='Select * from sz_jyfs';
  399.   dm.sz_jyfs.Open;
  400. end;
  402. procedure Tsz_dmgl.SpeedButton5Click(Sender: TObject);
  403. begin
  404.   dm.sz_jyfs.Close;
  405.   dm.sz_jyfs.CommandText:='select * from sz_jyfs where jyfs_dm='+''''+''''+'';
  406.   dm.sz_jyfs.Open;
  407.   DbEdit7.SetFocus;
  408. end;
  410. procedure Tsz_dmgl.SpeedButton6Click(Sender: TObject);
  411. begin
  412.  dm.sz_jyfs.Edit;
  413.  DBEdit7.SetFocus;
  414. end;
  416. procedure Tsz_dmgl.SpeedButton7Click(Sender: TObject);
  417. begin
  418.  if datasource3.DataSet.RecordCount=0 then
  419.   begin
  420.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  421.      exit;
  422.   end
  423.   else
  424.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  425.   begin
  426.       datasource3.DataSet.Delete;
  427.       dm.sz_jyfs.ApplyUpdates(0);
  428.   end
  429.   else
  430.       datasource3.DataSet.Cancel;
  431. end;
  433. procedure Tsz_dmgl.SpeedButton8Click(Sender: TObject);
  434. var i:integer;
  435. begin
  436.  if DbEdit7.Text='' then
  437.   begin
  438.      application.MessageBox('借阅方式代码不可为空','提示',mb_ok+mb_iconinformation);
  439.      exit;
  440.   end;
  441.   if DbEdit8.Text='' then
  442.   begin
  443.      application.MessageBox('借阅方式名称不可为空','提示',mb_ok+mb_iconinformation);
  444.      exit;
  445.   end;
  446.   if length(trim(DbEdit7.Text))<>length(Edit3.Text) then
  447.   begin
  448.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  449.      exit;
  450.   end;
  451.   //------------以上为判断不符合条件的情况
  452.  dm.sz_jyfs.ApplyUpdates(0);
  453.   i:=dm.sz_jyfs.ApplyUpdates(0);
  454.   if i=0  then
  455.   begin
  456.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  457.     Refresh3.Click;
  458.   end
  459.   else
  460.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation)
  461. end;
  463. procedure Tsz_dmgl.SpeedButton15Click(Sender: TObject);
  464. begin
  465.   close;
  466. end;
  468. procedure Tsz_dmgl.SpeedButton9Click(Sender: TObject);
  469. begin
  470.   dm.sz_jymd.Close;
  471.   dm.sz_jymd.CommandText:='select * from sz_jymd where jymd_dm='+''''+''''+'';
  472.   dm.sz_jymd.Open;
  473.   DbEdit10.SetFocus;
  474. end;
  476. procedure Tsz_dmgl.SpeedButton11Click(Sender: TObject);
  477. begin
  478.  dm.sz_jymd.Edit;
  479.  DbEDit10.SetFocus;
  480. end;
  482. procedure Tsz_dmgl.SpeedButton12Click(Sender: TObject);
  483. begin
  484.  if datasource4.DataSet.RecordCount=0 then
  485.   begin
  486.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  487.      exit;
  488.   end
  489.   else
  490.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  491.   begin
  492.       datasource4.DataSet.Delete;
  493.       dm.sz_jymd.ApplyUpdates(0);
  494.   end
  495.   else
  496.       datasource4.DataSet.Cancel;
  497. end;
  499. procedure Tsz_dmgl.SpeedButton13Click(Sender: TObject);
  500. var i:integer;
  501. begin
  502.  if DbEdit10.Text='' then
  503.   begin
  504.      application.MessageBox('借阅目的代码不可为空','提示',mb_ok+mb_iconinformation);
  505.      exit;
  506.   end;
  507.   if DbEdit11.Text='' then
  508.   begin
  509.      application.MessageBox('借阅目的名称不可为空','提示',mb_ok+mb_iconinformation);
  510.      exit;
  511.   end;
  512.   if length(trim(DbEdit10.Text))<>length(Edit4.Text) then
  513.   begin
  514.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  515.      exit;
  516.   end;
  517.   //------------以上为判断不符合条件的情况
  518.   dm.sz_jymd.ApplyUpdates(0);
  519.   i:=dm.sz_jymd.ApplyUpdates(0);
  520.   if i=0  then
  521.   begin
  522.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  523.     Refresh4.Click;
  524.   end
  525.   else
  526.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  527. end;
  529. procedure Tsz_dmgl.Refresh4Click(Sender: TObject);
  530. begin
  531.   dm.sz_jymd.Close;
  532.   dm.sz_jymd.CommandText:='Select * from sz_jymd';
  533.   dm.sz_jymd.Open;
  534. end;
  536. procedure Tsz_dmgl.SpeedButton3Click(Sender: TObject);
  537. begin
  538.   dm.sz_bgqx.Edit;
  539.   DbEdit1.SetFocus;
  540. end;
  542. procedure Tsz_dmgl.SpeedButton20Click(Sender: TObject);
  543. begin
  544.   close;
  545. end;
  547. procedure Tsz_dmgl.SpeedButton14Click(Sender: TObject);
  548. begin
  549.   dm.sz_ztlb.Close;
  550.   dm.sz_ztlb.CommandText:='select * from sz_ztlb where ztlb_dm='+''''+''''+'';
  551.   dm.sz_ztlb.Open;
  552.   DbEdit13.SetFocus;
  553. end;
  555. procedure Tsz_dmgl.SpeedButton16Click(Sender: TObject);
  556. begin
  557.  dm.sz_ztlb.Edit;
  558.  DbEDit13.SetFocus;
  559. end;
  561. procedure Tsz_dmgl.SpeedButton17Click(Sender: TObject);
  562. begin
  563.  if datasource5.DataSet.RecordCount=0 then
  564.   begin
  565.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  566.      exit;
  567.   end
  568.   else
  569.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  570.   begin
  571.      dm.sz_ztlb.Delete;
  572.      dm.sz_ztlb.ApplyUpdates(0);
  573.   end
  574.   else
  575.       datasource5.DataSet.Cancel;
  576. end;
  578. procedure Tsz_dmgl.SpeedButton18Click(Sender: TObject);
  579. var i:integer;
  580. begin
  581.  if DbEdit13.Text='' then
  582.   begin
  583.      application.MessageBox('载体类别代码不可为空','提示',mb_ok+mb_iconinformation);
  584.      exit;
  585.   end;
  586.   if DbEdit14.Text='' then
  587.   begin
  588.      application.MessageBox('载体类别名称不可为空','提示',mb_ok+mb_iconinformation);
  589.      exit;
  590.   end;
  591.   if length(trim(DbEdit13.Text))<>length(Edit5.Text) then
  592.   begin
  593.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  594.      exit;
  595.   end;
  596.   //------------以上为判断不符合条件的情况
  597.   dm.sz_ztlb.ApplyUpdates(0);
  598.   i:=dm.sz_ztlb.ApplyUpdates(0);
  599.   if i=0  then
  600.   begin
  601.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  602.     Refresh5.Click;
  603.   end
  604.   else
  605.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  606. end;
  608. procedure Tsz_dmgl.Refresh5Click(Sender: TObject);
  609. begin
  610.   dm.sz_ztlb.Close;
  611.   dm.sz_ztlb.CommandText:='Select * from sz_ztlb';
  612.   dm.sz_ztlb.Open;
  613. end;
  615. procedure Tsz_dmgl.SpeedButton25Click(Sender: TObject);
  616. begin
  617.   close;
  618. end;
  620. procedure Tsz_dmgl.SpeedButton19Click(Sender: TObject);
  621. begin
  622.   dm.sz_zjlb.Close;
  623.   dm.sz_zjlb.CommandText:='select * from sz_zjlb where zjlb_dm='+''''+''''+'';
  624.   dm.sz_zjlb.Open;
  625.   DbEdit16.SetFocus;
  626. end;
  628. procedure Tsz_dmgl.SpeedButton21Click(Sender: TObject);
  629. begin
  630.  dm.sz_zjlb.Edit;
  631.  DbEDit16.SetFocus;
  632. end;
  634. procedure Tsz_dmgl.SpeedButton22Click(Sender: TObject);
  635. begin
  636.  if datasource6.DataSet.RecordCount=0 then
  637.   begin
  638.      application.MessageBox('表中没有数据，不能删除','提示',mb_ok+mb_iconinformation);
  639.      exit;
  640.   end
  641.   else
  642.   if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  643.   begin
  644.       dm.sz_zjlb.Delete;
  645.       dm.sz_zjlb.ApplyUpdates(0);
  646.       dm.sz_zjlb.Close;
  647.       dm.sz_zjlb.CommandText:='select * from sz_zjlb';
  648.       dm.sz_zjlb.Open;
  649.   end
  650.   else
  651.       datasource6.DataSet.Cancel;
  652. end;
  654. procedure Tsz_dmgl.SpeedButton23Click(Sender: TObject);
  655. var i:integer;
  656. begin
  657.  if DbEdit16.Text='' then
  658.   begin
  659.      application.MessageBox('证件类别代码不可为空','提示',mb_ok+mb_iconinformation);
  660.      exit;
  661.   end;
  662.   if DbEdit17.Text='' then
  663.   begin
  664.      application.MessageBox('证件类别名称不可为空','提示',mb_ok+mb_iconinformation);
  665.      exit;
  666.   end;
  667.   if length(trim(DbEdit13.Text))<>length(Edit6.Text) then
  668.   begin
  669.      application.MessageBox('编码规则不对','提示',mb_ok+mb_iconinformation);
  670.      exit;
  671.   end;
  672.   //------------以上为判断不符合条件的情况
  673.   dm.sz_zjlb.ApplyUpdates(0);
  674.   i:=dm.sz_zjlb.ApplyUpdates(0);
  675.   if i=0  then
  676.   begin
  677.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  678.     Refresh6.Click;
  679.   end
  680.   else
  681.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  682. end;
  684. procedure Tsz_dmgl.Refresh6Click(Sender: TObject);
  685. begin
  686.  dm.sz_zjlb.Close;
  687.  dm.sz_zjlb.CommandText:='Select * from sz_zjlb';
  688.  dm.sz_zjlb.Open;
  689. end;
  691. procedure Tsz_dmgl.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  692. begin
  693.   if key=#13 then
  694.      DBEDit2.SetFocus; 
  695. end;
  697. procedure Tsz_dmgl.DBEdit5KeyPress(Sender: TObject; var Key: Char);
  698. begin
  699.   if key=#13 then
  700.      DbEdit6.SetFocus;
  701. end;
  703. procedure Tsz_dmgl.BitBtn4Click(Sender: TObject);
  704. begin
  705.   close;
  706. end;
  708. procedure Tsz_dmgl.QuitClick(Sender: TObject);
  709. begin
  710.  close;
  711. end;
  713. procedure Tsz_dmgl.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  714. begin
  715.  if key=#13 then
  716.     DbEdit3.SetFocus;
  717. end;
  719. procedure Tsz_dmgl.DBEdit4KeyPress(Sender: TObject; var Key: Char);
  720. begin
  721.  if key=#13 then
  722.     DbEdit5.SetFocus;
  723. end;
  725. procedure Tsz_dmgl.DBEdit7KeyPress(Sender: TObject; var Key: Char);
  726. begin
  727.   if key=#13 then
  728.      DbEdit8.SetFocus;
  729. end;
  731. procedure Tsz_dmgl.DBEdit8KeyPress(Sender: TObject; var Key: Char);
  732. begin
  733. if key=#13 then
  734.      DbEdit9.SetFocus;
  735. end;
  737. procedure Tsz_dmgl.DBEdit10KeyPress(Sender: TObject; var Key: Char);
  738. begin
  739. if key=#13 then
  740.      DbEdit11.SetFocus;
  741. end;
  743. procedure Tsz_dmgl.DBEdit11KeyPress(Sender: TObject; var Key: Char);
  744. begin
  745. if key=#13 then
  746.      DbEdit12.SetFocus;
  747. end;
  749. procedure Tsz_dmgl.DBEdit13KeyPress(Sender: TObject; var Key: Char);
  750. begin
  751.  if key=#13 then
  752.      DbEdit14.SetFocus;
  753. end;
  755. procedure Tsz_dmgl.DBEdit14KeyPress(Sender: TObject; var Key: Char);
  756. begin
  757.  if key=#13 then
  758.      DbEdit15.SetFocus;
  759. end;
  761. procedure Tsz_dmgl.DBEdit16KeyPress(Sender: TObject; var Key: Char);
  762. begin
  763.  if key=#13 then
  764.      DbEdit17.SetFocus;
  765. end;
  767. procedure Tsz_dmgl.DBEdit17KeyPress(Sender: TObject; var Key: Char);
  768. begin
  769.  if key=#13 then
  770.      DbEdit18.SetFocus;
  771. end;
  773. procedure Tsz_dmgl.DBEdit3KeyPress(Sender: TObject; var Key: Char);
  774. begin
  775.   mainfrm.DbInputNum(dbedit3,key);
  776. end;
  778. end.