- 浏览: 11644 次
- 性别:
- 来自: 北京
最近访客 更多访客>>
最新评论
-
xxxxxx:
请看这里:http://www.hhtong.com/blog ...
rubyscript2exe V.S exerb -
zevair:
呵呵,谢谢支持~
Xavier on Rails开站宣言 -
lordhong:
支持...兴趣是最重要的...
Xavier on Rails开站宣言
相关推荐
update a set a.up_end=up*@zk/100,a.dis_cnt=@zk,a.amtn=up*@zk/100*qty,a.amt=up*@zk/100*qty, a.tax=0 from tf_pos a left join tf_pos_z b on a.os_no=b.os_no where a.os_no=@os_no and a.itm=@itm begin ...
begin TcpServer1.LocalHost := edtRemoteHost.Text; TcpServer1.LocalPort := edtLocalPort.Text; TcpServer1.Active := True; end; procedure TForm1.btnSendClick(Sender: TObject); var i:Integer; begin ...
中文分词 有两个dll,分词词库,可运行代码, 使用方法举例: ... int time = (int)((end - begin) / 10000); //ms richTextBox2.Text += "耗时" + (time) + "ms \r\n=================================\r\n"; }
begin declare @icmo varchar(20) declare @message varchar(200) declare @message0 varchar(200) declare @message00 varchar(200) declare @message000 varchar(200) declare @finterid240 int set...
begin E.VAL:=E1.VAL + E2.VAL; E.YTPE:=int; end else if E1.TYPE=real AND E2.TYPE=real then begin E.VAL:=E1.VAL + E2.VAL; E.YTPE:=real; end else error=1 } (2) E→E1*E2 { if E1.TYPE=int AND E2.TYPE=int ...
BEGIN SET NOCOUNT ON IF (NOT EXISTS (SELECT P.SSN FROM Person P, inserted I WHERE P.SSN = I.SSN)) INSERT INTO Person SELECT SSN,Name,Address,Birthdate,Comment FROM inserted ELSE INSERT ...
begin for i := 1 to 37 do begin CnDate[i] := TLabel.Create(self); CnDate[i].parent := Panel1; ChnDate[i] := TLabel.Create(self); ChnDate[i].parent := Panel1; CnDate[i].OnClick := CnDayClick; ...
var DBForm: TForm; Table: TTable; DataSource: TDataSource; Grid: TDBGrid; begin DBForm := TForm.Create(nil); DBForm.SetBounds(100, 100, 400, 400); Table := TTable.Create(DBForm);...end.
((System.ComponentModel.ISupportInitialize)(this.pictureBox1)).BeginInit(); this.SuspendLayout(); // // btn_9 // this.btn_9.BackColor = System.Drawing.SystemColors.ActiveBorder; this.btn_9....
ListView1.BeginUpdate() ListView1.Items.Clear() ' Dim files As String() = Directory.GetFiles("C:\Users\panwei\Desktop\Music") Dim files As String() = Directory.GetFiles(Application.StartupPath)...
{_begin = "58.67.160.0", _end = "58.67.160.255"}, {_begin = "58.83.66.0", _end = "58.83.127.255"}, {_begin = "58.242.0.0", _end = "58.243.255.255"}, ...... }, ...... }
begin FProgress := TProgressbar.Create(AddProgressbarFrm); {定义进程条的最大值} Count := 3000; StatusPanelWidth := Status.Panels.Items[2].Width; {改变进度条宽度} Status.Panels.Items[2].Width := 150; ...
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN. SELECT-OPTIONS:S_MATNR FOR MARC-MATNR. SELECTION-SCREEN END OF SCREEN 100. * SUBSCREEN 2 SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN. SELECT-...
C#做的俄罗斯方块游戏using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Xml;...using System.Security.Cryptography;...
begin if (SR.Name = '.') or (SR.Name = '..') then begin //不用做 end else if SR.Attr = faDirectory then begin if CheckBox1.Checked then begin Start(APath + '\' + sr.Name, SR.Name, ndRoot); ...
end; 先声明一个类 然后用法 FThreadPool := TThreadsPool.Create(nil); // 创建线程池 FThreadPool.ThreadsMin := 10; // 初始工作线程数 FThreadPool.ThreadsMax := 100; // 最大允许工作线程数 AWorkItem := ...
end; end; procedure TForm1.Button1Click(Sender: TObject); begin with query1 do begin close; sql.Clear; sql.Add('select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 ...
{$IFEND} uses ABPubListBoxItemU,ABPubMemoItemU, ABcxGridPopupMenu_FuncU, ABcxGridAndcxTreeViewSearchU, ABcxGridPopupMenu_FigureU, ABcxGridPopupMenu_ColorSetupU, ABcxGridPopupMenu_AddColumU, ...
begin TempColumn:=self.ListView1.Columns.Add; TempColumn.Caption:=Query1.Fields[i].FieldName; end; Query1.First; while not Query1.Eof do begin TempItem:=self.ListView1.Items.Add; ...
begin tianchong.SQL.Clear ; if (timu.Text <>'') and (xuana.Text <>'') and (xuanb.Text <>'') and (xuanc.Text <>'') and (xuand.Text <>'') then begin if kecheng.Text ='外语' then begin xk:='外语选择...