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

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

Delphi控件源码

开发平台：

Delphi

Am_ylj_bjs.pas：源码内容
  1. unit Am_ylj_bjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, DB, StdCtrls, Mask, DBCtrls, Buttons, DBCtrlsEh,
  8.   TFlatHintUnit;
  10. type
  11.   TAm_ylj_bj = class(TForm)
  12.     Panel1: TPanel;
  13.     Label1: TLabel;
  14.     ds_ajgl: TDataSource;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     DBMemo1: TDBMemo;
  20.     Label6: TLabel;
  21.     L_bgqx: TDBLookupComboBox;
  22.     L_mj: TDBLookupComboBox;
  23.     SpeedButton1: TSpeedButton;
  24.     SpeedButton2: TSpeedButton;
  25.     DBEditEh1: TDBEditEh;
  26.     DBEditEh2: TDBEditEh;
  27.     DBEditEh3: TDBEditEh;
  28.     FlatHint1: TFlatHint;
  29.     procedure SpeedButton2Click(Sender: TObject);
  30.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  31.     procedure SpeedButton1Click(Sender: TObject);
  32.     procedure FormShow(Sender: TObject);
  33.     procedure DBMemo1MouseDown(Sender: TObject; Button: TMouseButton;
  34.       Shift: TShiftState; X, Y: Integer);
  35.     procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  36.     procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
  37.       Shift: TShiftState);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   Am_ylj_bj: TAm_ylj_bj;
  46.   cpos,Lpos,linelength:integer;
  48. implementation
  50. uses DMs,am_yljs,u_public, ajgls;
  52. {$R *.dfm}
  54. procedure TAm_ylj_bj.SpeedButton2Click(Sender: TObject);
  55. begin
  56.   close;
  57. end;
  59. procedure TAm_ylj_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  60. begin
  61.   am_ylj_bj:=nil;
  62.   action:=cafree;
  63. end;
  65. procedure TAm_ylj_bj.SpeedButton1Click(Sender: TObject);
  66. begin
  67.   dm.Am_ajgl.Edit;
  68.   dm.Am_ajgl.FieldByName('ajzt_mc').AsString:='预立卷';
  69.   dm.Am_ajgl.FieldByName('ajlb_dm').AsString:=am_ylj.epos1;
  70.   dm.Am_ajgl.ApplyUpdates(0);
  71.   if dm.Am_ajgl.ApplyUpdates(0)=0 then
  72.   begin
  73.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  74.      am_ylj.ToolButton1.Click;
  75.      am_ylj.xiugai.Enabled:=true;
  76.      am_ylj.dele1.Enabled:=true;
  77.      am_ylj.ToolButton1.Enabled:=true;
  78.      am_ylj.WJCZ.Enabled:=true;
  79.      am_ylj.YLJ1.Enabled:=true;
  80.      close;
  81.   end
  82.   else
  83.   begin
  84.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  85.   end;
  86. end;
  88. procedure TAm_ylj_bj.FormShow(Sender: TObject);
  89. var now1:Tdatetime;
  90.     year,month,day:word;
  91.     s1,s2:string;
  92.     epos:integer;
  93. begin
  94.   now1:=date();
  95.   decodedate(now1,year,month,day);
  96.   dbediteh2.Text:=inttostr(year);
  97.   dbediteh3.Text:=user_name;
  98.   s1:=am_ylj.Tree.Selected.Text;
  99.   Epos:=pos('-',s1);
  100.   s2:=copy(ylj_s1,0,Epos-1);//案卷类别代码
  101.   dm.sz_ajlb.Close;
  102.   dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+s2+''''+'';
  103.   dm.sz_ajlb.Open;
  104.   dbediteh1.Text:=dm.sz_ajlb.FieldByName('ajlb_mc').AsString;//将案卷类别代码赋给
  105. end;                                                         //dbediteh1
  107. procedure TAm_ylj_bj.DBMemo1MouseDown(Sender: TObject;
  108.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  109. begin
  110.   Lpos:=sendmessage(dbmemo1.Handle,em_linefromchar,dbmemo1.SelStart,0);
  111.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  112.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  113.   cpos:=dbmemo1.SelStart-cpos;
  114. end;
  116. procedure TAm_ylj_bj.DBMemo1KeyPress(Sender: TObject; var Key: Char);
  117. begin
  118.    if (Cpos>76)or(linelength>76)then
  119.   begin
  120.       key:=#13;
  121.       lpos:=lpos+1;
  122.       cpos:=1;
  123.       linelength:=1;
  124.   end;
  125. end;
  129. procedure TAm_ylj_bj.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  130.   Shift: TShiftState);
  131. begin
  132.   lpos:=SendMessage(dbMemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  133.   Cpos:=Sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  134.   Linelength:=Sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  135.   Cpos:=dbmemo1.SelStart-Cpos;
  136. end;
  138. end.