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

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

Delphi控件源码

开发平台：

Delphi

ajgl_bjs.~pas：源码内容
  1. unit ajgl_bjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, ImgList, StdCtrls, Buttons, DB, DBClient, Mask,
  8.   DBCtrls, DBCtrlsEh, DBLookupEh;
  10. type
  11.   TAm_ajgl_bj = class(TForm)
  12.     Panel2: TPanel;
  13.     Delete: TBitBtn;
  14.     ImageList1: TImageList;
  15.     Panel1: TPanel;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     DBEdit3: TDBEdit;
  20.     Label4: TLabel;
  21.     Label5: TLabel;
  22.     DBEdit5: TDBEdit;
  23.     Label6: TLabel;
  24.     DBEdit6: TDBEdit;
  25.     Label7: TLabel;
  26.     Label8: TLabel;
  27.     Label9: TLabel;
  28.     Label10: TLabel;
  29.     DBEdit9: TDBEdit;
  30.     Label11: TLabel;
  31.     Label12: TLabel;
  32.     DBEdit11: TDBEdit;
  33.     Label13: TLabel;
  34.     Label14: TLabel;
  35.     Label15: TLabel;
  36.     Label16: TLabel;
  37.     Label17: TLabel;
  38.     Label18: TLabel;
  39.     Label19: TLabel;
  40.     DBEdit16: TDBEdit;
  41.     Label20: TLabel;
  42.     Label21: TLabel;
  43.     Label22: TLabel;
  44.     Label23: TLabel;
  45.     Label24: TLabel;
  46.     Label25: TLabel;
  47.     Quit: TBitBtn;
  48.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  49.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  50.     DBLookupComboboxEh3: TDBLookupComboboxEh;
  51.     DBEditEh1: TDBEditEh;
  52.     SpeedButton2: TSpeedButton;
  53.     SpeedButton3: TSpeedButton;
  54.     ds_ajgl: TDataSource;
  55.     DBEditEh3: TDBEditEh;
  56.     DBEditEh4: TDBEditEh;
  57.     DBEditEh5: TDBEditEh;
  58.     DBEditEh2: TDBEditEh;
  59.     DBEditEh6: TDBEditEh;
  60.     DBLookupComboboxEh4: TDBLookupComboboxEh;
  61.     DBEditEh7: TDBEditEh;
  62.     ClientDataSet1: TClientDataSet;
  63.     DBEditEh8: TDBEditEh;
  64.     DBMemo1: TDBMemo;
  65.     DBMemo2: TDBMemo;
  66.     DBMemo3: TDBMemo;
  67.     DBEditEh9: TDBEditEh;
  68.     procedure QuitClick(Sender: TObject);
  69.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  70.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  71.     procedure FormShow(Sender: TObject);
  72.     procedure DeleteClick(Sender: TObject);
  73.     procedure DBEditEh1Exit(Sender: TObject);
  74.     procedure DBEditEh8Exit(Sender: TObject);
  75.     procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
  76.       Shift: TShiftState);
  77.     procedure DBMemo1MouseDown(Sender: TObject; Button: TMouseButton;
  78.       Shift: TShiftState; X, Y: Integer);
  79.     procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  80.     procedure SpeedButton2Click(Sender: TObject);
  81.     procedure FormCreate(Sender: TObject);
  82.     procedure SpeedButton3Click(Sender: TObject);
  83.     procedure DBMemo2KeyDown(Sender: TObject; var Key: Word;
  84.       Shift: TShiftState);
  85.     procedure DBMemo2MouseDown(Sender: TObject; Button: TMouseButton;
  86.       Shift: TShiftState; X, Y: Integer);
  87.     procedure DBMemo2KeyPress(Sender: TObject; var Key: Char);
  88.     procedure DBMemo3KeyDown(Sender: TObject; var Key: Word;
  89.       Shift: TShiftState);
  90.     procedure DBMemo3MouseDown(Sender: TObject; Button: TMouseButton;
  91.       Shift: TShiftState; X, Y: Integer);
  92.     procedure DBMemo3KeyPress(Sender: TObject; var Key: Char);
  93.   private
  94.     { Private declarations }
  95.   public
  96.     { Public declarations }
  97.   end;
  99. var
  100.   Am_ajgl_bj: TAm_ajgl_bj;
  101.   lpos,cpos,linelength:integer;
  102. implementation
  103. uses dms,mainfrms,u_public, ajgls, am_Sdqcs;
  104. {$R *.dfm}
  105. procedure TAm_ajgl_bj.QuitClick(Sender: TObject);
  106. begin
  107.  close;
  108. end;
  109. //----------------------------------------------------------------
  110. procedure TAm_ajgl_bj.FormKeyPress(Sender: TObject; var Key: Char);
  111. begin
  112.   if key=#13 then
  113.   begin
  114.      key:=#0;
  115.      Perform(WM_NextDlgCtl,0,0);
  116.   end;
  117. end;//焦点转移
  118. procedure TAm_ajgl_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  119. begin
  120.   action:=cafree;
  121.   am_ajgl_bj:=nil;
  122.   frm_name2:='';
  123. end;
  125. procedure TAm_ajgl_bj.FormShow(Sender: TObject);
  126. var n:integer;
  127.     s_ajxh:string;//案卷序号
  128. begin
  129.     n:=pos('-',am_ajgl.tree.selected.Text)-1;
  130.     epos1:=copy(am_ajgl.tree.Selected.Text,1,n);//案卷代码
  131.     Epos2:=copy(am_ajgl.tree.Selected.Text,n+2,length(am_ajgl.tree.Selected.Text));
  132.     DBEditeh2.Text:=Epos2;
  133.     dbediteh1.Text:=YearNow();
  134.     //案卷序号自动加一inc()
  135.     s_ajxh:=dm.V_ajgl.fieldbyname('aj_xh').AsString;
  136.     Clientdataset1.Close;
  137.     Clientdataset1.CommandText:='select * from v_ajgl where aj_xh='+''''+s_ajxh+''''+'';
  138.     Clientdataset1.Open;
  139.     dbediteh8.Text:=inttostr(Clientdataset1.RecordCount+1);
  140.     dbedit5.Text:=ePos1+'-'+dbediteh1.Text+'-'+dbediteh8.Text;
  141.     DBEditeh4.Text:=formatdatetime('yyyy-mm-dd',now);
  142.     DBEditeh5.Text:=formatdatetime('yyyy-mm-dd',now);
  143.     dbediteh7.Text:=user_name;
  144.     DBEditeh6.text:='案卷';
  145.     DBEditeh3.text:=user_name;
  146. end;
  148. //*****************************************************************************
  149. procedure TAm_ajgl_bj.DeleteClick(Sender: TObject);
  150. var i,n:integer;
  151. begin
  152.   if trim(dbediteh1.text)='' then
  153.   begin
  154.      application.MessageBox('年代号不能为空','提示',mb_ok+mb_iconinformation);
  155.      exit;
  156.   end;
  157.   if trim(DBLookupComboboxEh3.Text)='' then
  158.   begin
  159.      application.MessageBox('保管期限不能为空','提示',mb_ok+mb_iconinformation);
  160.      DBLookupComboboxEh3.SetFocus;
  161.      exit;
  162.   end;
  163.   if trim(DBLookupComboboxEh2.Text)='' then
  164.   begin
  165.      application.MessageBox('密级不能为空','提示',mb_ok+mb_iconinformation);
  166.      DBLookupComboboxEh2.SetFocus;
  167.      exit;
  168.   end;
  169.   //数据完整性验证
  170.   dm.Am_ajgl.edit;
  171.    n:=pos('-',am_ajgl.tree.selected.Text)-1;
  172.    epos1:=copy(am_ajgl.tree.Selected.Text,1,n);//案卷代码
  173.   dbediteh7.Text:=user_name;
  174.   dm.Am_ajgl.fieldbyname('ajlb_dm').asstring:=epos1;//案卷类别代码
  175.   dm.am_ajgl.FieldByName('aj_ndh').AsString:=dbediteh1.Text;//年代号
  176.   dm.Am_ajgl.FieldByName('aj_ljr').AsString:=dbediteh7.Text;//立卷人
  177.   dm.am_ajgl.FieldByName('aj_bzqsrq').AsString:=dbediteh4.Text;//编制起始日期
  178.   dm.am_ajgl.FieldByName('aj_gdqsrq').AsString:=dbediteh5.Text;//归档起始日期
  179.   dm.Am_ajgl.fieldbyname('ajzt_mc').AsString:=dbediteh6.Text;//案卷状态
  180.   dm.Am_ajgl.FieldByName('user_name').AsString:=dbediteh3.Text;//用户名
  181.   dm.Am_ajgl.FieldByName('aj_Bmmc').AsString:=DbLookUPcomboboxeh1.Text;
  182.   //-----------------------------------------
  183.   dm.am_ajgl.ApplyUpdates(0);
  184.   //---------------------------
  185.   i:=dm.am_ajgl.ApplyUpdates(0);
  186.   if i=0 then
  187.    begin
  188.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  189.      am_ajgl.refresh1.Click;
  190.      am_ajgl.Ajgd1.Enabled:=true;
  191.      am_ajgl.xiugai.Enabled:=true;
  192.      am_ajgl.dele1.Enabled:=true;
  193.      am_ajgl.WJCZ.Enabled:=true;
  194.      close;
  195.    end
  196.   else
  197.    begin
  198.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  199.      exit;
  200.    end;
  201. end;
  202. //******************************************************************************
  203. procedure TAm_ajgl_bj.DBEditEh1Exit(Sender: TObject);
  204. begin
  205.  dbedit5.Text:=ePos1+'-'+dbediteh1.Text+'-'+dbediteh8.Text;
  206. end;
  208. procedure TAm_ajgl_bj.DBEditEh8Exit(Sender: TObject);
  209. begin
  210.   dbedit5.Text:=ePos1+'-'+dbediteh1.Text+'-'+dbediteh8.Text;
  211. end;
  212. procedure TAm_ajgl_bj.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  213.   Shift: TShiftState);
  214. begin
  215.   Lpos:=sendmessage(dbmemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  216.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  217.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  218.   Cpos:=dbmemo1.SelStart-cpos;
  219. end;
  221. procedure TAm_ajgl_bj.DBMemo1MouseDown(Sender: TObject;
  222.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  223. begin
  224.   Lpos:=sendmessage(dbmemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  225.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  226.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  227.   Cpos:=dbmemo1.SelStart-cpos;
  228. end;
  230. procedure TAm_ajgl_bj.DBMemo1KeyPress(Sender: TObject; var Key: Char);
  231. begin
  232.   if (Cpos>76)or(linelength>76)then
  233.   begin
  234.       key:=#13;
  235.       lpos:=lpos+1;
  236.       cpos:=1;
  237.       linelength:=1;
  238.   end;
  239. end;
  241. procedure TAm_ajgl_bj.SpeedButton2Click(Sender: TObject);
  242. begin
  243.  DbEditeh9.Text:='';
  244. end;
  246. procedure TAm_ajgl_bj.FormCreate(Sender: TObject);
  247. begin
  248.   frm_name2:='am_ajgl_bj';
  249. end;
  251. procedure TAm_ajgl_bj.SpeedButton3Click(Sender: TObject);
  252. begin
  253.  if am_sdqc=nil then
  254.   begin
  255.     am_sdqc:=Tam_sdqc.create(application);
  256.     am_sdqc.showmodal;
  257.   end;
  258. end;
  260. procedure TAm_ajgl_bj.DBMemo2KeyDown(Sender: TObject; var Key: Word;
  261.   Shift: TShiftState);
  262. begin
  263.   Lpos:=sendmessage(dbmemo2.Handle,EM_linefromchar,dbmemo2.SelStart,0);
  264.   Cpos:=sendmessage(dbmemo2.Handle,em_lineindex,lpos,0);
  265.   linelength:=sendmessage(dbmemo2.Handle,em_linelength,cpos,0);
  266.   Cpos:=dbmemo2.SelStart-cpos;
  267. end;
  269. procedure TAm_ajgl_bj.DBMemo2MouseDown(Sender: TObject;
  270.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  271. begin
  272.   Lpos:=sendmessage(dbmemo2.Handle,EM_linefromchar,dbmemo2.SelStart,0);
  273.   Cpos:=sendmessage(dbmemo2.Handle,em_lineindex,lpos,0);
  274.   linelength:=sendmessage(dbmemo2.Handle,em_linelength,cpos,0);
  275.   Cpos:=dbmemo2.SelStart-cpos;
  276. end;
  278. procedure TAm_ajgl_bj.DBMemo2KeyPress(Sender: TObject; var Key: Char);
  279. begin
  280.   if (Cpos>76)or(linelength>76)then
  281.   begin
  282.       key:=#13;
  283.       lpos:=lpos+1;
  284.       cpos:=1;
  285.       linelength:=1;
  286.   end;
  287. end;
  289. procedure TAm_ajgl_bj.DBMemo3KeyDown(Sender: TObject; var Key: Word;
  290.   Shift: TShiftState);
  291. begin
  292.   Lpos:=sendmessage(dbmemo3.Handle,EM_linefromchar,dbmemo3.SelStart,0);
  293.   Cpos:=sendmessage(dbmemo3.Handle,em_lineindex,lpos,0);
  294.   linelength:=sendmessage(dbmemo3.Handle,em_linelength,cpos,0);
  295.   Cpos:=dbmemo3.SelStart-cpos;
  296. end;
  298. procedure TAm_ajgl_bj.DBMemo3MouseDown(Sender: TObject;
  299.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  300. begin
  301.   Lpos:=sendmessage(dbmemo3.Handle,EM_linefromchar,dbmemo3.SelStart,0);
  302.   Cpos:=sendmessage(dbmemo3.Handle,em_lineindex,lpos,0);
  303.   linelength:=sendmessage(dbmemo3.Handle,em_linelength,cpos,0);
  304.   Cpos:=dbmemo3.SelStart-cpos;
  305. end;
  307. procedure TAm_ajgl_bj.DBMemo3KeyPress(Sender: TObject; var Key: Char);
  308. begin
  309.   if (Cpos>76)or(linelength>76)then
  310.   begin
  311.       key:=#13;
  312.       lpos:=lpos+1;
  313.       cpos:=1;
  314.       linelength:=1;
  315.   end;
  316. end;
  318. end.