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

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

Delphi控件源码

开发平台：

Delphi

Am_wjbjs.~pas：源码内容
  1. unit Am_wjbjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Buttons, DB, Mask, DBCtrls, DBCtrlsEh,
  8.   DBLookupEh, TFlatHintUnit, DBClient;
  10. type
  11.   TAm_wjgl_bj = class(TForm)
  12.     Panel1: TPanel;
  13.     Panel2: TPanel;
  14.     Quit: TBitBtn;
  15.     Add: TBitBtn;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Label4: TLabel;
  19.     DBEdit4: TDBEdit;
  20.     Label6: TLabel;
  21.     Label7: TLabel;
  22.     Label8: TLabel;
  23.     DBEdit8: TDBEdit;
  24.     Label9: TLabel;
  25.     DBEdit9: TDBEdit;
  26.     Label10: TLabel;
  27.     Label11: TLabel;
  28.     Label12: TLabel;
  29.     Label13: TLabel;
  30.     Label14: TLabel;
  31.     DBEdit14: TDBEdit;
  32.     Label15: TLabel;
  33.     DBEdit15: TDBEdit;
  34.     Label16: TLabel;
  35.     Label17: TLabel;
  36.     Label18: TLabel;
  37.     Label19: TLabel;
  38.     DBEdit19: TDBEdit;
  39.     Label20: TLabel;
  40.     DBEdit20: TDBEdit;
  41.     Label3: TLabel;
  42.     DBMemo1: TDBMemo;
  43.     DBMemo2: TDBMemo;
  44.     DBMemo3: TDBMemo;
  45.     DBEditEh1: TDBEditEh;
  46.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  47.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  48.     DBDateTimeEditEh1: TDBDateTimeEditEh;
  49.     DBDateTimeEditEh2: TDBDateTimeEditEh;
  50.     Label5: TLabel;
  51.     DBLookupComboboxEh3: TDBLookupComboboxEh;
  52.     SpeedButton1: TSpeedButton;
  53.     SpeedButton2: TSpeedButton;
  54.     DBNumberEditEh1: TDBNumberEditEh;
  55.     Label21: TLabel;
  56.     Label22: TLabel;
  57.     Label23: TLabel;
  58.     FlatHint1: TFlatHint;
  59.     DBEditEh2: TDBEditEh;
  60.     ClientDataSet1: TClientDataSet;
  61.     DBEditEh3: TDBEditEh;
  62.     DBEditEh4: TDBEditEh;
  63.     ClientDataSet2: TClientDataSet;
  64.     procedure QuitClick(Sender: TObject);
  65.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  66.     procedure AddClick(Sender: TObject);
  67.     procedure FormShow(Sender: TObject);
  68.     procedure DBEdit7Exit(Sender: TObject);
  69.     procedure DBEdit20Exit(Sender: TObject);
  70.     procedure FormCreate(Sender: TObject);
  71.     procedure SpeedButton1Click(Sender: TObject);
  72.     procedure SpeedButton2Click(Sender: TObject);
  73.     procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
  74.       Shift: TShiftState);
  75.     procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  76.     procedure DBMemo1MouseDown(Sender: TObject; Button: TMouseButton;
  77.       Shift: TShiftState; X, Y: Integer);
  78.     procedure DBMemo2KeyDown(Sender: TObject; var Key: Word;
  79.       Shift: TShiftState);
  80.     procedure DBMemo2KeyPress(Sender: TObject; var Key: Char);
  81.     procedure DBMemo2MouseDown(Sender: TObject; Button: TMouseButton;
  82.       Shift: TShiftState; X, Y: Integer);
  83.     procedure DBMemo3KeyDown(Sender: TObject; var Key: Word;
  84.       Shift: TShiftState);
  85.     procedure DBMemo3MouseDown(Sender: TObject; Button: TMouseButton;
  86.       Shift: TShiftState; X, Y: Integer);
  87.     procedure DBMemo3KeyPress(Sender: TObject; var Key: Char);
  88.     procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
  89.     procedure DBNumberEditEh1Exit(Sender: TObject);
  90.   private
  91.     { Private declarations }
  92.   public
  93.     { Public declarations }
  94.   end;
  96. var
  97.   Am_wjgl_bj: TAm_wjgl_bj;
  98.   cpos,lpos,linelength:integer;
  99.   N_yc:integer;//文件页次
  100. implementation
  102. uses DMs,am_yljs,mainfrms,u_public,ajgls, am_Sdqcs;
  104. {$R *.dfm}
  106. procedure TAm_wjgl_bj.QuitClick(Sender: TObject);
  107. begin
  108.  Close;
  109. end;
  111. procedure TAm_wjgl_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  112. begin
  113.   am_wjgl_bj:=nil;
  114.   action:=cafree;
  115.   frm_name2:='';
  116. end;
  118. procedure TAm_wjgl_bj.AddClick(Sender: TObject);
  119. var i:integer;
  120. begin
  121.   if DbLookUpComboboxeh3.Text='' then
  122.    begin
  123.      application.MessageBox('文件类别不能为空','提示',mb_ok+mb_iconinformation);
  124.      DbLookUpComboboxeh3.SetFocus;
  125.      exit;
  126.    end;
  127.    if DbLookUpComboboxeh1.Text='' then
  128.    begin
  129.      application.MessageBox('责任者不能为空','提示',mb_ok+mb_iconinformation);
  130.      DbLookUpComboboxeh1.SetFocus;
  131.      exit;
  132.    end;
  133.    if DbLookUpComboboxeh2.Text='' then
  134.    begin
  135.      application.MessageBox('载体类别不能为空','提示',mb_ok+mb_iconinformation);
  136.      DbLookUpComboboxeh2.SetFocus;
  137.      exit;
  138.    end;
  139.  //----------------------------------------------------------------
  140.   dm.Am_wjgl.ApplyUpdates(0);
  141.   i:=dm.Am_wjgl.ApplyUpdates(0);
  142.   if i=0 then
  143.    begin
  144.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  145.      dm.Am_wjgl.Close;
  146.      dm.am_wjgl.CommandText:='select * from am_wjgl';
  147.      dm.am_wjgl.Open;
  148.      dm.V_Wjgl.Close;
  149.      dm.V_Wjgl.CommandText:='select * from V_wjgl';
  150.      dm.V_Wjgl.Open;//案卷管理对应的是v_wjgl
  151.      dm.V_Wjgl2.Close;
  152.      dm.V_Wjgl2.CommandText:='select * from v_wjgl2';
  153.      dm.V_Wjgl2.Open;//案卷管理对应的是v_wjgl2
  154.      close;
  155.    end
  156.   else
  157.    begin
  158.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  159.      exit;
  160.    end;
  161. end;
  163. procedure TAm_wjgl_bj.FormShow(Sender: TObject);
  164. var now1:Tdatetime;
  165.     n:integer;
  166. begin
  167.  if  frm_name='am_ajgl' then
  168.  begin
  169.    n:=pos('-',am_ajgl.tree.selected.Text)-1;
  170.    epos1:=copy(am_ajgl.tree.Selected.Text,1,n);//案卷代码
  171.    Epos2:=copy(am_ajgl.tree.Selected.Text,n+2,length(am_ajgl.tree.Selected.Text));
  172.    DBEdit4.Text:=Epos2;
  173.    dbediteh1.Text:=YearNow();
  174.    s_ajxh:=dm.V_ajgl.fieldbyname('aj_xh').AsString;
  175.    Clientdataset1.Close;
  176.    Clientdataset1.CommandText:='select * from v_wjgl where aj_xh='+''''+s_ajxh+''''+'';
  177.    Clientdataset1.Open;
  178.    Clientdataset2.Close;//查找最大的文件页次号
  179.    clientdataset2.CommandText:='select max(wj_yc) as wj_yc from am_wjgl where aj_xh='+''''+s_ajxh+''''+'';
  180.    Clientdataset2.Open;
  181.    N_Yc:=Clientdataset2.fieldbyname('wj_yc').AsInteger;
  182.    dbediteh2.Text:=inttostr(Clientdataset1.RecordCount+1);
  183.    DBDatetimeEditeh1.Text:=formatdatetime('yyyy-mm-dd',now);
  184.    dbedit14.Text:=am_ajgl.DBGridEh1.FieldColumns['bgqx_mc'].DisplayText;
  185.    dbedit15.Text:=dm.V_ajgl.fieldbyname('mj_mc').AsString;
  186.    dm.Am_wjgl.FieldByName('user_name').AsString:=user_name;
  187.    dm.Am_wjgl.fieldbyname('aj_xh').AsString:=dm.V_ajgl.fieldbyname('aj_xh').AsString;
  188.  end
  189.  else if frm_name='am_ylj' then//预立卷
  190.  begin
  191.    n:=pos('-',am_ylj.tree.selected.Text)-1;
  192.    epos1:=copy(am_ylj.tree.Selected.Text,1,n);//案卷代码
  193.    Epos2:=copy(am_ylj.tree.Selected.Text,n+2,length(am_ylj.tree.Selected.Text));
  194.    DBEdit4.Text:=Epos2;
  195.    dbediteh1.Text:=YearNow();
  196.    s_ajxh:=dm.V_ylj.fieldbyname('aj_xh').AsString;
  197.    Clientdataset1.Close;
  198.    Clientdataset1.CommandText:='select * from v_wjgl where aj_xh='+''''+s_ajxh+''''+'';
  199.    Clientdataset1.Open;
  200.    Clientdataset2.Close;//查找最大的文件页次号
  201.    clientdataset2.CommandText:='select max(wj_yc) as wj_yc from am_wjgl where aj_xh='+''''+s_ajxh+''''+'';
  202.    Clientdataset2.Open;
  203.    N_Yc:=Clientdataset2.fieldbyname('wj_yc').AsInteger;
  204.    dbediteh2.Text:=inttostr(Clientdataset1.RecordCount+1);
  205.    DBDatetimeEditeh1.Text:=formatdatetime('yyyy-mm-dd',now);
  206.    dbedit14.Text:=dm.V_ylj.fieldbyname('bgqx_mc').AsString;
  207.    dbedit15.Text:=dm.V_ylj.fieldbyname('mj_mc').AsString;
  208.    dm.Am_wjgl.FieldByName('user_name').AsString:=user_name;
  209.    dm.Am_wjgl.fieldbyname('aj_xh').AsString:=dm.V_ylj.fieldbyname('aj_xh').AsString;
  210.  end;
  211. end;
  213. procedure TAm_wjgl_bj.DBEdit7Exit(Sender: TObject);
  214. begin
  215.    if frm_name='am_ylj' then
  216.       dbedit9.Text:=ylj_s2+'-'+dbediteh1.Text+'-'+s_ajxh+'-'+dbedit20.Text;
  217.    if frm_name='am_ajgl' then
  218.       dbedit9.Text:=ajgl_s2+'-'+dbediteh1.Text+'-'+s_ajxh+'-'+dbedit20.Text;
  219. end;
  221. procedure TAm_wjgl_bj.DBEdit20Exit(Sender: TObject);
  222. begin
  223.   if frm_name='am_ylj' then
  224.       dbedit9.Text:=ylj_s2+'-'+dbediteh1.Text+'-'+s_ajxh+'-'+dbedit20.Text;
  225.    if frm_name='am_ajgl' then
  226.       dbedit9.Text:=ajgl_s2+'-'+dbediteh1.Text+'-'+s_ajxh+'-'+dbedit20.Text;
  227. end;
  229. procedure TAm_wjgl_bj.FormCreate(Sender: TObject);
  230. begin
  231.  frm_name2:='am_Wjgl_bj';
  232. end;
  234. procedure TAm_wjgl_bj.SpeedButton1Click(Sender: TObject);
  235. begin
  236.  DbEditeh3.Text:='';
  237. end;
  239. procedure TAm_wjgl_bj.SpeedButton2Click(Sender: TObject);
  240. begin
  241.  if am_sdqc=NIl then
  242.   begin
  243.     am_sdqc:=Tam_sdqc.create(application);
  244.     am_sdqc.showmodal;
  245.   end;
  246. end;
  248. procedure TAm_wjgl_bj.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  249.   Shift: TShiftState);
  250. begin
  251.   Lpos:=sendmessage(dbmemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  252.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  253.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  254.   Cpos:=dbmemo1.SelStart-cpos;
  255. end;
  257. procedure TAm_wjgl_bj.DBMemo1KeyPress(Sender: TObject; var Key: Char);
  258. begin
  259.   if (Cpos>76)or(linelength>76)then
  260.   begin
  261.       key:=#13;
  262.       lpos:=lpos+1;
  263.       cpos:=1;
  264.       linelength:=1;
  265.   end;
  266. end;
  268. procedure TAm_wjgl_bj.DBMemo1MouseDown(Sender: TObject;
  269.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  270. begin
  271.   Lpos:=sendmessage(dbmemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  272.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  273.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  274.   Cpos:=dbmemo1.SelStart-cpos;
  275. end;
  277. procedure TAm_wjgl_bj.DBMemo2KeyDown(Sender: TObject; var Key: Word;
  278.   Shift: TShiftState);
  279. begin
  280.   Lpos:=sendmessage(dbmemo2.Handle,EM_linefromchar,dbmemo2.SelStart,0);
  281.   Cpos:=sendmessage(dbmemo2.Handle,em_lineindex,lpos,0);
  282.   linelength:=sendmessage(dbmemo2.Handle,em_linelength,cpos,0);
  283.   Cpos:=dbmemo2.SelStart-cpos;
  284. end;
  286. procedure TAm_wjgl_bj.DBMemo2KeyPress(Sender: TObject; var Key: Char);
  287. begin
  288.   if (Cpos>76)or(linelength>76)then
  289.   begin
  290.       key:=#13;
  291.       lpos:=lpos+1;
  292.       cpos:=1;
  293.       linelength:=1;
  294.   end;
  295. end;
  297. procedure TAm_wjgl_bj.DBMemo2MouseDown(Sender: TObject;
  298.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  299. begin
  300.   Lpos:=sendmessage(dbmemo2.Handle,EM_linefromchar,dbmemo2.SelStart,0);
  301.   Cpos:=sendmessage(dbmemo2.Handle,em_lineindex,lpos,0);
  302.   linelength:=sendmessage(dbmemo2.Handle,em_linelength,cpos,0);
  303.   Cpos:=dbmemo2.SelStart-cpos;
  304. end;
  306. procedure TAm_wjgl_bj.DBMemo3KeyDown(Sender: TObject; var Key: Word;
  307.   Shift: TShiftState);
  308. begin
  309.   Lpos:=sendmessage(dbmemo3.Handle,EM_linefromchar,dbmemo3.SelStart,0);
  310.   Cpos:=sendmessage(dbmemo3.Handle,em_lineindex,lpos,0);
  311.   linelength:=sendmessage(dbmemo3.Handle,em_linelength,cpos,0);
  312.   Cpos:=dbmemo3.SelStart-cpos;
  313. end;
  315. procedure TAm_wjgl_bj.DBMemo3MouseDown(Sender: TObject;
  316.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  317. begin
  318.   Lpos:=sendmessage(dbmemo3.Handle,EM_linefromchar,dbmemo3.SelStart,0);
  319.   Cpos:=sendmessage(dbmemo3.Handle,em_lineindex,lpos,0);
  320.   linelength:=sendmessage(dbmemo3.Handle,em_linelength,cpos,0);
  321.   Cpos:=dbmemo3.SelStart-cpos;
  322. end;
  324. procedure TAm_wjgl_bj.DBMemo3KeyPress(Sender: TObject; var Key: Char);
  325. begin
  326.   if (Cpos>76)or(linelength>76)then
  327.   begin
  328.       key:=#13;
  329.       lpos:=lpos+1;
  330.       cpos:=1;
  331.       linelength:=1;
  332.   end;
  333. end;
  335. procedure TAm_wjgl_bj.DBEdit20KeyPress(Sender: TObject; var Key: Char);
  336. begin
  337.    if not(key in['0'..'9',#13,#8]) then
  338.       key:=#0;
  340. end;
  342. procedure TAm_wjgl_bj.DBNumberEditEh1Exit(Sender: TObject);
  343. var s:string;
  344. begin//怎样实现？
  345.   DbEditeh4.Text:=IntToStr(strToInt(DBNumberEditEh1.Text)+N_yc);
  346.   //s:=dm.V_ylj.fieldbyname('aj_xh').AsString;
  347. end;
  349. end.