insert.~pas

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

unit insert;

interface

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

type
  Tinsertform = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    choose: TEdit;
    telname: TEdit;
    card: TEdit;
    address: TEdit;
    phone: TEdit;
    operition: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    telephone: TMaskEdit;
    Panel1: TPanel;
    Label1: TLabel;
    shortnumber: TMaskEdit;
    shownumber: TMaskEdit;
    grade: TComboBox;
    group: TComboBox;
    Label13: TLabel;
    ComboBox2: TComboBox;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure telephoneKeyPress(Sender: TObject; var Key: Char);
    procedure telephoneExit(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure shortnumberKeyPress(Sender: TObject; var Key: Char);
    procedure shownumberKeyPress(Sender: TObject; var Key: Char);
    procedure gradeKeyPress(Sender: TObject; var Key: Char);
    procedure telnameKeyPress(Sender: TObject; var Key: Char);
    procedure cardKeyPress(Sender: TObject; var Key: Char);
    procedure addressKeyPress(Sender: TObject; var Key: Char);
    procedure phoneKeyPress(Sender: TObject; var Key: Char);
    procedure operitionKeyPress(Sender: TObject; var Key: Char);
    procedure chooseKeyPress(Sender: TObject; var Key: Char);
    procedure groupKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure Button6Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
resourcestring
  // sql_insert ='insert into code2serv (num,ServName) values (''%s'',''%s'')';
  sql_insert1 = 'insert into centre (PhoneNum,State,Service,sGloabal,sZone,s136,sPeople,ShortNum,b1,bOther,b2,b3,b4,[User],Gender,cID,Address,Tel,GroupName,Saler,DT,area) ';
  sql_insert2 = ' values (''%s'',%d,''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',%d,''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'')';
  //sql_selectgroup='Select count(*) as expr  from centre where Shortnum=''%s'' and GroupName=''%s''';
  //sql_getmobile='slect ServName from code2serv where '
var
  insertform: Tinsertform;

implementation
uses datamodule, MAIN;
{$R *.dfm}

procedure Tinsertform.Button1Click(Sender: TObject);
begin
  MainForm.EditCodeServ.Execute;
end;

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

procedure Tinsertform.Button4Click(Sender: TObject);
begin
  close;
end;

procedure Tinsertform.Button5Click(Sender: TObject);
begin
  MainForm.OpenGroupView.Execute;
end;

procedure Tinsertform.Button2Click(Sender: TObject);
var sqlstr, sqlsub, sqlgroup, sGloabal, s136, sZone, sPeople, b1, b2, b3, b4, telephonenumber, show_number, group_company, grade_company, number_short, telname_company, card_company, address_company, phone_company, operition_company, v_area: string;
begin
  telephonenumber := trim(telephone.text);
  show_number := trim(shownumber.text);
  group_company := trim(group.text);
  grade_company := trim(grade.text);
  number_short := trim(shortnumber.text + shownumber.text);
  telname_company := trim(telname.text);
  card_company := trim(card.text);
  address_company := trim(address.text);
  phone_company := trim(phone.text);
  operition_company := trim(operition.text);
  v_area := trim(ComboBox2.text);
  //sqlsub:=Format(sql_select,[trim(telephone.text)]);
 // sqlgroup:= Format(sql_selectgroup,[trim(shownumber.text),trim(group.text)]);
  if (telephonenumber = '') then begin
    ShowMessage('手机号码不能为空!');
    telephone.SetFocus;
  end
  else if (show_number = '') then begin
    ShowMessage('手机短号码不能为空!');
    shownumber.SetFocus;
  end
  else if (group_company = '') then begin
    ShowMessage('集团名称不能为空!');
    group.SetFocus;
  end
  else if DM.checkshortnumexist(show_number, group_company) then begin
    ShowMessage('此短号:已经存在于集团中了!');
    shownumber.SetFocus;
  end
  else if DM.checkmobileexist(telephonenumber) then begin
    ShowMessage('该号码已经存储!请选择其他号码!');
    telephone.SetFocus;
  end
  else if v_area = '' then begin
    ShowMessage('请输入客户所属区域!');
    ComboBox2.SetFocus;
  end
  else begin
    if Pos('全球', grade_company) > 0 then begin
      sGloabal := '√';
      ShowMessage(sGloabal);
    end
    else if Pos('神州', grade_company) > 0 then begin
      s136 := '√';
    end
    else if Pos('动感', grade_company) > 0 then begin
      sZone := '√';
    end
    else if Pos('大众', grade_company) > 0 then begin
      sPeople := '√';
    end;
    if RadioButton1.checked = true then begin
      b1 := '√';
    end
    else if RadioButton2.checked = true then begin
      b2 := '√';
    end
    else if RadioButton2.checked = true then begin
      b3 := '√';
    end
    else if RadioButton2.checked = true then begin
      b4 := '√';
    end;
    //sqlstr:=Format(sql_insert,['111','222']);
    sqlstr := Format(sql_insert1 + sql_insert2, [telephonenumber, 1, grade_company, sGloabal, s136, sZone, sPeople, number_short, b1, '1', b2, b3, b4, telname_company, ComboBox1.ItemIndex, card_company, address_company, phone_company, group_company, operition_company, FormatDateTime('yyyy-mm-dd hh:nn:ss', DateTimePicker1.DateTime), ComboBox2.text]);
    //sqlstr :='insert into code2serv (num,ServName) values (''3222'',''2323'')';
    //date.Text:=sqlstr;
    if DM.executesql(sqlstr) then
      if MessageDlg('插入数据成功，是否发送短信？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
        telephone.SetFocus;
      end
      else ShowMessage('插入数据失败');
  end
end;

procedure Tinsertform.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime := Now();
  grade.Items.text := DM.getrsstring('select distinct ServName from code2serv');
  group.Items.text := DM.getrsstring('select * from qryExistsGrpName');
  ComboBox2.Items.text := DM.getrsstring('select * from user_area');
end;


procedure Tinsertform.telephoneKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then shortnumber.SetFocus;
end;

procedure Tinsertform.telephoneExit(Sender: TObject);
begin
  //desc:=getmobiledesc(telephone.text);
  //grade.Text:=desc;
end;

procedure Tinsertform.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure Tinsertform.shortnumberKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then shownumber.SetFocus;
end;

procedure Tinsertform.shownumberKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then grade.SetFocus;
end;

procedure Tinsertform.gradeKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then RadioButton1.SetFocus;
end;

procedure Tinsertform.telnameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then card.SetFocus;
end;

procedure Tinsertform.cardKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then address.SetFocus;
end;

procedure Tinsertform.addressKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then phone.SetFocus;
end;

procedure Tinsertform.phoneKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then group.SetFocus;
end;


procedure Tinsertform.operitionKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then DateTimePicker1.SetFocus;
end;

procedure Tinsertform.chooseKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then telname.SetFocus;
end;

procedure Tinsertform.groupKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then operition.SetFocus;
end;

procedure Tinsertform.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
  ComboBox2.SetFocus;
end;

procedure Tinsertform.Button3Click(Sender: TObject);
begin
  MainForm.OpenCentre.Execute;
end;

procedure Tinsertform.RadioButton1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then telname.SetFocus;
end;

procedure Tinsertform.Button6Click(Sender: TObject);
begin
  MainForm.OpenAreaList.Execute;
end;

procedure Tinsertform.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Button2.SetFocus;
end;

end.