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

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

Delphi控件源码

开发平台：

Delphi

xt_yhzs.pas：源码内容
  1. unit xt_yhzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, DBCtrls, DB, Grids, DBGridEh, ExtCtrls, Mask,
  8.   DBCtrlsEh, DBLookupEh, DBClient;
  10. type
  11.   Txt_fpyhz = class(TForm)
  12.     GroupBox1: TGroupBox;
  13.     Label37: TLabel;
  14.     Label5: TLabel;
  15.     SpeedButton19: TSpeedButton;
  16.     SpeedButton21: TSpeedButton;
  17.     SpeedButton22: TSpeedButton;
  18.     SpeedButton23: TSpeedButton;
  19.     Refresh: TSpeedButton;
  20.     SpeedButton25: TSpeedButton;
  21.     Panel6: TPanel;
  22.     DBGridEh6: TDBGridEh;
  23.     DataSource1: TDataSource;
  24.     Label1: TLabel;
  25.     Label2: TLabel;
  26.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  27.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  28.     Ds_user: TDataSource;
  29.     Ds_Yhz: TDataSource;
  30.     Ds_UandG: TDataSource;
  31.     ClientDataSet1: TClientDataSet;
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure SpeedButton25Click(Sender: TObject);
  34.     procedure SpeedButton19Click(Sender: TObject);
  35.     procedure SpeedButton21Click(Sender: TObject);
  36.     procedure SpeedButton22Click(Sender: TObject);
  37.     procedure SpeedButton23Click(Sender: TObject);
  38.     procedure RefreshClick(Sender: TObject);
  39.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   xt_fpyhz: Txt_fpyhz;
  49. implementation
  50. uses dms,U_public,ljszs;
  51. {$R *.dfm}
  53. procedure Txt_fpyhz.FormCreate(Sender: TObject);
  54. begin
  55.   dm.xt_yhz.Active:=true;
  56.   dm.xt_user.active:=true;
  57.   dm.xt_uandg.Active:=true;
  58.   dm.V_UandG.Active:=true;
  59. end;
  61. procedure Txt_fpyhz.SpeedButton25Click(Sender: TObject);
  62. begin
  63.  close;
  64. end;
  66. procedure Txt_fpyhz.SpeedButton19Click(Sender: TObject);
  67. begin
  68.  dm.xt_UandG.Append;//增加
  69.  DbLookUpComboboxeh1.Color:=clwindow;
  70.  DbLookUpComboboxeh2.Color:=clwindow;
  71.  DbLookUpComboboxeh1.Enabled:=true;
  72.  DbLookUpComboboxeh2.Enabled:=true;
  73. end;
  75. procedure Txt_fpyhz.SpeedButton21Click(Sender: TObject);
  76. var s_xh:string;
  77. begin
  78.   s_xh:=dm.V_UandG.fieldbyname('ug_xh').AsString;
  79.   dm.xt_UandG.Close;
  80.   dm.xt_UandG.CommandText:='select * from xt_UandG where ug_xh='+''''+s_xh+''''+'';
  81.   dm.xt_UandG.Open;
  82.   dm.xt_uandg.Edit;//修改数据
  83.   DbLookUpComboboxeh1.Color:=clwindow;
  84.  DbLookUpComboboxeh2.Color:=clwindow;
  85.  DbLookUpComboboxeh1.Enabled:=true;
  86.  DbLookUpComboboxeh2.Enabled:=true;
  87. end;
  89. procedure Txt_fpyhz.SpeedButton22Click(Sender: TObject);
  90. var s_xh:string;
  91. begin
  92.  s_xh:=dm.V_UandG.fieldbyname('ug_xh').AsString;
  93.  if dm.V_UandG.RecordCount=0 then
  94.   begin
  95.     application.MessageBox('当前表中没有数据,'+#13#10+'不能删除','警告',mb_ok+mb_iconinformation);
  96.     exit;
  97.   end
  98.  else
  99.   begin//删除选中的书并且更新表和视图
  100.     if application.MessageBox('您确定要删除吗?','警告',mb_ok+mb_iconinformation)=Idok then
  101.      begin
  102.       dm.xt_UandG.Close;
  103.       dm.xt_UandG.CommandText:='delete xt_UandG where ug_xh='+''''+s_xh+''''+'';
  104.       dm.xt_UandG.Execute;
  105.       dm.xt_UandG.Close;
  106.       dm.xt_uandg.CommandText:='select * from xt_uandG';
  107.       dm.xt_uandg.open;
  108.       dm.V_UandG.Close;
  109.       dm.V_UandG.CommandText:='select * from v_UandG';
  110.       dm.V_UandG.Open;
  111.      end;
  112.   end;
  113. end;
  115. procedure Txt_fpyhz.SpeedButton23Click(Sender: TObject);
  116. var N:integer;
  117.     s:string;
  118. begin
  119.  if DbLookupComboboxeh1.Text='' then
  120.   begin
  121.     application.MessageBox('用户名称不能为空','提示',mb_ok+mb_iconinformation);
  122.     exit;
  123.   end;
  124.  if DbLookupComboboxeh2.Text='' then
  125.   begin
  126.     application.MessageBox('用户组名称不能为空','提示',mb_ok+mb_iconinformation);
  127.     exit;
  128.   end;
  129.  //数据有效性验证
  130.  s:=DbLookUpComboboxeh1.KeyValue;
  131.  ClientdataSet1.Close;
  132.  Clientdataset1.CommandText:='select * from xt_UandG where User_dm='+''''+s+''''+'';
  133.  Clientdataset1.Open;
  134.  if clientdataset1.RecordCount<>0 then
  135.    begin
  136.     application.MessageBox('当前表中已有该用户存在,'+#13#10+'请选择其他用户','提示',mb_ok+mb_iconinformation);
  137.     exit;
  138.    end; 
  139.  N:=dm.xt_UandG.ApplyUpdates(0);
  140.  if N=0 then
  141.   begin
  142.     application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  143.     dm.xt_UandG.Close;
  144.     dm.xt_uandg.CommandText:='select * from xt_UandG';
  145.     dm.xt_UandG.open;
  146.     dm.v_uandg.Close;
  147.     dm.V_UandG.CommandText:='select * from v_UandG';
  148.     dm.V_UandG.Open;
  149.   end
  150.  else
  151.   begin
  152.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  153.   end;
  154. end;
  156. procedure Txt_fpyhz.RefreshClick(Sender: TObject);
  157. begin
  158.  dm.V_UandG.Close;
  159.  dm.v_Uandg.CommandText:='select * from v_UandG';
  160.  dm.V_UandG.Open;//刷新
  161. end;
  163. procedure Txt_fpyhz.FormClose(Sender: TObject; var Action: TCloseAction);
  164. begin
  165.   dm.xt_UandG.Active:=false;
  166.   dm.V_UandG.Active:=false;
  167.   dm.xt_user.Active:=false;
  168.   dm.xt_yhz.Active:=false;  
  169. end;
  171. end.