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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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.     Label7: TLabel;
  30.     Label8: TLabel;
  31.     Label9: TLabel;
  32.     procedure SpeedButton2Click(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure SpeedButton1Click(Sender: TObject);
  35.     procedure FormShow(Sender: TObject);
  36.     procedure DBMemo1MouseDown(Sender: TObject; Button: TMouseButton;
  37.       Shift: TShiftState; X, Y: Integer);
  38.     procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  39.     procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
  40.       Shift: TShiftState);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  47. var
  48.   Am_ylj_bj: TAm_ylj_bj;
  49.   cpos,Lpos,linelength:integer;
  51. implementation
  53. uses DMs,am_yljs,u_public, ajgls;
  55. {$R *.dfm}
  57. procedure TAm_ylj_bj.SpeedButton2Click(Sender: TObject);
  58. begin
  59.   close;
  60. end;
  62. procedure TAm_ylj_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  63. begin
  64.   am_ylj_bj:=nil;
  65.   action:=cafree;
  66. end;
  68. procedure TAm_ylj_bj.SpeedButton1Click(Sender: TObject);
  69. begin
  70.   dm.Am_ajgl.Edit;
  71.   dm.Am_ajgl.FieldByName('ajzt_mc').AsString:='预立卷';
  72.   dm.Am_ajgl.FieldByName('ajlb_dm').AsString:=am_ylj.epos1;
  73.   dm.Am_ajgl.ApplyUpdates(0);
  74.   if dm.Am_ajgl.ApplyUpdates(0)=0 then
  75.   begin
  76.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  77.      am_ylj.ToolButton1.Click;
  78.      am_ylj.xiugai.Enabled:=true;
  79.      am_ylj.dele1.Enabled:=true;
  80.      am_ylj.ToolButton1.Enabled:=true;
  81.      am_ylj.WJCZ.Enabled:=true;
  82.      am_ylj.YLJ1.Enabled:=true;
  83.      close;
  84.   end
  85.   else
  86.   begin
  87.     application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  88.   end;
  89. end;
  91. procedure TAm_ylj_bj.FormShow(Sender: TObject);
  92. var now1:Tdatetime;
  93.     year,month,day:word;
  94.     s1,s2:string;
  95.     epos:integer;
  96. begin
  97.   now1:=date();
  98.   decodedate(now1,year,month,day);
  99.   dbediteh2.Text:=inttostr(year);
  100.   dbediteh3.Text:=user_name;
  101.   s1:=am_ylj.Tree.Selected.Text;
  102.   Epos:=pos('-',s1);
  103.   s2:=copy(ylj_s1,0,Epos-1);//案卷类别代码
  104.   dm.sz_ajlb.Close;
  105.   dm.sz_ajlb.CommandText:='select * from sz_ajlb where ajlb_dm='+''''+s2+''''+'';
  106.   dm.sz_ajlb.Open;
  107.   dbediteh1.Text:=dm.sz_ajlb.FieldByName('ajlb_mc').AsString;//将案卷类别代码赋给
  108. end;                                                         //dbediteh1
  110. procedure TAm_ylj_bj.DBMemo1MouseDown(Sender: TObject;
  111.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  112. begin
  113.   Lpos:=sendmessage(dbmemo1.Handle,em_linefromchar,dbmemo1.SelStart,0);
  114.   Cpos:=sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  115.   linelength:=sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  116.   cpos:=dbmemo1.SelStart-cpos;
  117. end;
  119. procedure TAm_ylj_bj.DBMemo1KeyPress(Sender: TObject; var Key: Char);
  120. begin
  121.    if (Cpos>76)or(linelength>76)then
  122.   begin
  123.       key:=#13;
  124.       lpos:=lpos+1;
  125.       cpos:=1;
  126.       linelength:=1;
  127.   end;
  128. end;
  132. procedure TAm_ylj_bj.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  133.   Shift: TShiftState);
  134. begin
  135.   lpos:=SendMessage(dbMemo1.Handle,EM_linefromchar,dbmemo1.SelStart,0);
  136.   Cpos:=Sendmessage(dbmemo1.Handle,em_lineindex,lpos,0);
  137.   Linelength:=Sendmessage(dbmemo1.Handle,em_linelength,cpos,0);
  138.   Cpos:=dbmemo1.SelStart-Cpos;
  139. end;
  141. end.