fmdatainput.pas

中国移动集群网销售资料录入管理系统。 包含集群网用户录入

unit fmdatainput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;

type
  TFormDataInput = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    ADOTable1: TADOTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
resourcestring
  sql_select='select * from code2serv  where ServName=''%s''';
  sql_insert ='insert into code2serv (num,ServName) values (''%s'',''%s'')';
var
  FormDataInput: TFormDataInput;

implementation
uses datamodule;
{$R *.dfm}

procedure TFormDataInput.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFormDataInput.Button1Click(Sender: TObject);
begin
   ADOTable1.TableName:='code2serv';
   ADOTable1.Open;
end;

procedure TFormDataInput.Button2Click(Sender: TObject);
begin
with TADOQuery.Create(nil) do try
  Connection:=DM.conn;
  SQL.Add(Format(sql_select,['神州行']))  ;
  Open;
  While not Eof do begin
    Memo1.Lines.Add(Fields.FieldByName('num').AsString);
  Next;
  end;
finally
 Free;
end;
end;


procedure TFormDataInput.Button3Click(Sender: TObject);
begin
with TADOQuery.Create(nil) do try
  Connection:=DM.conn;
  SQL.Add(Format(sql_insert,['111','222']));
  ExecSQL;
  ShowMessage(' insert OK');
finally
 Free;
end;
DM.Conn.Execute(Format(sql_insert,['111','222']));
end;

end.