dps

摘要： 应用程序中，常有若干个groupbox控件里面放入若干用户所需要的输入框、选择按钮，并在右下角放上“确认”或“返回”按钮Button, 组成用户和应用程序交互界面.下面是在应用程序中将groupbox控件居中显示方法。procedure TForm1.adjust_groupbox(var groupbox:TGroupBox;Button:TButton);//这里的Button是groupbox中最右下角的那个按钮begin GroupBox.Height:=Button.top+50; GroupBox.Width :=Button.left+88; GroupBox.Top :=(S. 阅读全文

摘要： procedure TForm1.GroupBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; TgroupBox(sender).perform(WM_SysCommand, $F012, 0);end; 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);const yh=#39;label redo,lr;var i,j,k,h,l,n,p0,p1,q, tf,ll,nl,idd : integer; stn,stc : array[1..20000] of string; sline,sl,st,stcode,fname,blm,bs0 : string; zf,chn,cf,chuan,yinhao: boolean; fi,fo : textfile;begin memo1.Lines.Clear; //放上一个memo控件 l:=0; h:= 阅读全文

摘要： procedure get_stru_SQL(var sql_str:string);begin sql_str:='create table qxgmb ( m_id integer identity(1,1) primary key,'; sql_str:=sql_str+' 编号 varchar(12), '; sql_str:=sql_str+' 购买日期 date, 器械名称 varchar(20), '; sql_str:=sql_str+' 器械类型 varchar(10), 购买数量 short , '; sql_ 阅读全文

摘要： Function AccisTable_exist(AdoCON:TADOConnection; tabname:string):boolean;//检测 TabName 数据表是否存在var index : integer; SL : TStringList;begin result:=false; SL := TStringList.Create; try ADOCon.GetTableNames(SL,False); except raise Exception.Create('装载源库列表错误！错误特征码2003'); end; for index := 0 to (S 阅读全文

摘要： var addi : integer; ftype : Smallint; stn,stc: array[1..10000] of String;function get_st(sl:string):string;var i : integer;begin for i:=length(sl) downto 1 do if (sl[i]<#32) or (sl[i]=#39) or (sl[i]=';') then delete(sl,i,1); result:=sl;end;function tri(sl,st:string):string;//F1Book1.sheet 阅读全文

摘要： function get_py(st : string):string;function GetPYIndexChar( hzchar:string):char;begin //的到一个汉字的拼音头个字母 case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := 'A'; $B0C5..$B2C0 : result := 'B'; $B2C1..$B4ED : result := 'C'; $B4EE..$B6E9 : result := 'D' 阅读全文