user_un.pas

布林电话收费管理系统

unit user_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, ExtCtrls, bsSkinBoxCtrls,
  StdCtrls, Mask, bsMessages;

type
  Tuser1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Image1: TImage;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinListBox1: TbsSkinListBox;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinCheckListBox1: TbsSkinCheckListBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinXFormButton1: TbsSkinXFormButton;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinXFormButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinListBox1ListBoxClick(Sender: TObject);
    procedure bsSkinCheckListBox1ListBoxClick(Sender: TObject);
    procedure bsSkinXFormButton1Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  user1: Tuser1;

implementation
  uses globe,dm_un,main_un;
{$R *.dfm}

procedure Tuser1.bsSkinXFormButton4Click(Sender: TObject);
begin
close ;
end;

procedure Tuser1.FormCreate(Sender: TObject);
var
 i:integer;
begin
 dm:=tdm.Create(nil);
 with dm do
  begin
   q_a.Close;
   q_a.SQL.Clear;
   q_a.SQL.Add('select * from tuser where user_id<>"100"');
   q_a.Prepared;
   q_a.Open;
  end;
  if dm.q_a.Recordset.RecordCount >0 then
   begin
    bsskinlistbox1.Items.Clear;
    dm.q_a.First;
     while not dm.q_a.Eof do
      begin
      if dm.q_a.FieldValues['user_id']<>'100' then
       bsskinlistbox1.Items.Add(dm.q_a.FieldValues['user_id']+'         '+dm.q_a.FieldValues['user_name']);
       dm.q_a.Next;
      end;
     dm.q_a.First;
     bsskinlistbox1.Selected[0]:=true;
     bsskinedit1.Text:=trim(dm.q_a.FieldValues['user_id']);
     bsskinedit2.Text:=trim(dm.q_a.FieldValues['user_name']);
     bsskinedit3.Text:=trim(dm.q_a.FieldValues['user_qx']);
   //  if pos('1',trim(bsskinedit3.Text))<>0 then
     for i:=1 to  bsskinchecklistbox1.Items.Count do
      begin
       if pos(inttostr(i),trim(bsskinedit3.Text))<>0 then
        bsskinchecklistbox1.Checked[i-1] :=true
       else
        bsskinchecklistbox1.Checked[i-1]:=false;
      end;
   end;
end;

procedure Tuser1.bsSkinListBox1ListBoxClick(Sender: TObject);
var
 i:integer;
begin
 dm:=tdm.Create(nil);
  with dm do
  begin
   q_a.Close;
   q_a.SQL.Clear;
   q_a.SQL.Add('select * from tuser where user_id=:user_id ');
   q_a.Parameters.ParamByName('user_id').Value:=trim(copy(bsskinlistbox1.Items.Strings[bsskinlistbox1.itemindex],1,6));
   q_a.Prepared;
   q_a.Open;
  end;
     bsskinedit1.Text:=trim(dm.q_a.FieldValues['user_id']);
     bsskinedit2.Text:=trim(dm.q_a.FieldValues['user_name']);
     bsskinedit3.Text:=trim(dm.q_a.FieldValues['user_qx']);
     for i:=1 to  bsskinchecklistbox1.Items.Count do
      begin
       if pos(inttostr(i),trim(bsskinedit3.Text))<>0 then
        bsskinchecklistbox1.Checked[i-1] :=true
       else
        bsskinchecklistbox1.Checked[i-1]:=false;
      end;
end;

procedure Tuser1.bsSkinCheckListBox1ListBoxClick(Sender: TObject);
var
 i:integer;
 tmp:string;
begin
   for i:=1 to  bsskinchecklistbox1.Items.Count do
     begin
      if bsskinchecklistbox1.Checked[i-1]  then
       tmp:=tmp+inttostr(i);
     end;
   bsskinedit3.Text:=tmp;
end;

procedure Tuser1.bsSkinXFormButton1Click(Sender: TObject);
var
 i:integer;
begin
 if bsskinmessage1.MessageDlg('你是否确定增加新的用户?',mtconfirmation,[mbok,mbcancel],1)=mrok then
  begin
   bsskinedit1.Text:='';
   bsskinedit2.Text:='';
   bsskinedit3.Text:='';
     for i:=1 to  bsskinchecklistbox1.Items.Count do
        bsskinchecklistbox1.Checked[i-1]:=false;
   bsskinedit1.SetFocus;     
  end;
end;

procedure Tuser1.bsSkinXFormButton2Click(Sender: TObject);
var
 i:integer;
begin
 dm:=tdm.Create(nil);
 with dm do
 begin
  q_c.Close;
  q_c.SQL.Clear;
  q_c.SQL.Add('select * from tuser where user_id=:user_id');
  q_c.Parameters.ParamByName('user_id').Value:=trim(bsskinedit1.Text);
  q_c.Prepared;
  q_c.Open;
 end;
 if (dm.q_c.Recordset.RecordCount>0) and (trim(bsskinedit1.Text)<>'100') then
   begin
   if bsskinmessage1.MessageDlg('你是否确定删除用户'+BSSKINEDIT2.Text+'?',mtconfirmation,[mbyes,mbcancel],0)=mryes then
     begin
       with dm do
         begin
          q_c.Close;
          q_c.SQL.Clear;
          q_c.SQL.Add('delete from tuser where user_id=:user_id');
          q_c.Parameters.ParamByName('user_id').Value:=trim(bsskinedit1.Text);
          q_c.Prepared;
          q_c.ExecSQL;
          writetolog('0.00');
         end;
         ///
         with dm do
          begin
           q_a.Close;
           q_a.SQL.Clear;
           q_a.SQL.Add('select * from tuser  where user_id<>"100" ');
           q_a.Prepared;
           q_a.Open;
          end;
          if dm.q_a.Recordset.RecordCount >0 then
           begin
            bsskinlistbox1.Items.Clear;
            dm.q_a.First;
             while not dm.q_a.Eof do
              begin
              if dm.q_a.FieldValues['user_id']<>'100' then
               bsskinlistbox1.Items.Add(dm.q_a.FieldValues['user_id']+'         '+dm.q_a.FieldValues['user_name']);
               dm.q_a.Next;
              end;
             dm.q_a.First;
             bsskinlistbox1.Selected[0]:=true;
             bsskinedit1.Text:=trim(dm.q_a.FieldValues['user_id']);
             bsskinedit2.Text:=trim(dm.q_a.FieldValues['user_name']);
             bsskinedit3.Text:=trim(dm.q_a.FieldValues['user_qx']);
           //  if pos('1',trim(bsskinedit3.Text))<>0 then
             for i:=1 to  bsskinchecklistbox1.Items.Count do
              begin
               if pos(inttostr(i),trim(bsskinedit3.Text))<>0 then
                bsskinchecklistbox1.Checked[i-1] :=true
               else
                bsskinchecklistbox1.Checked[i-1]:=false;
              end;
           end;
         ///
     end;
   end
 else
  begin
    bsskinmessage1.MessageDlg('你所要删除的用户不存在....请选择正确的用户..',MTERROR,[MBYES],0);
    bsSkinListBox1.setfocus;
  end;
end;

procedure Tuser1.bsSkinXFormButton3Click(Sender: TObject);
var
 i:integer;
begin
if bsskinmessage1.MessageDlg('你是否确定保存对用户所做的修改?',mtconfirmation,[mbyes,mbcancel],0)=mryes then
 begin
 dm:=tdm.Create(nil);
 with dm do
  begin
   q_b.Close;
   q_b.SQL.Clear;
   q_b.SQL.Add('select * from tuser where user_id=:user_id');
   q_b.Parameters.ParamByName('user_id').Value:=trim(bsskinedit1.Text);
   q_b.Prepared;
   q_b.Open;
  end;
  if dm.q_b.Recordset.RecordCount >0 then
   begin
   if trim(bsskinedit1.Text )<>'100' then
    begin
     with dm do
     begin
      q_d.Close;
      q_d.SQL.Clear;
      q_d.SQL.Add('update tuser set user_name=:user_name,user_qx=:user_qx where user_id=:user_id');
      q_d.Parameters.ParamByName('user_name').Value:=trim(bsskinedit2.Text);
      q_d.Parameters.ParamByName('user_qx').Value:=trim(bsskinedit3.Text);
      q_d.Parameters.ParamByName('user_id').Value:=trim(bsskinedit1.Text);
      q_d.Prepared;
      q_d.ExecSQL;
      writetolog('0.00');
     end;
    end;
   end 
  else
   begin
    if bsskinmessage1.MessageDlg('是否确定新增姓名为:'+trim(bsskinedit2.Text)+'的用户?',mtconfirmation,[mbyes,mbcancel],0)=mryes then
     if  trim(bsskinedit1.Text )<>'100' then
     with dm do
     begin
      q_d.Close;
      q_d.SQL.Clear;
      q_d.SQL.Add('insert into tuser (user_id,user_name,user_qx,USER_LOG_TIME,user_pass)');
      q_d.sql.Add('values(:user_id,:user_name,:user_qx,:user_sj,:user_pass)');
      q_d.Parameters.ParamByName('user_name').Value:=trim(bsskinedit2.Text);
      q_d.Parameters.ParamByName('user_qx').Value:=trim(bsskinedit3.Text);
      q_d.Parameters.ParamByName('user_id').Value:=trim(bsskinedit1.Text);
      q_d.Parameters.ParamByName('user_sj').Value:=now;
      q_d.Parameters.ParamByName('user_pass').Value:='1';
      q_d.Prepared;
      q_d.ExecSQL;
      writetolog('0.00');
     end;
   end;
   ///
         with dm do
          begin
           q_a.Close;
           q_a.SQL.Clear;
           q_a.SQL.Add('select * from tuser where user_id<>"100"');
           q_a.Prepared;
           q_a.Open;
          end;
          if dm.q_a.Recordset.RecordCount >0 then
           begin
            bsskinlistbox1.Items.Clear;
            dm.q_a.First;
             while not dm.q_a.Eof do
              begin
              if dm.q_a.FieldValues['user_id']<>'100' then
               bsskinlistbox1.Items.Add(dm.q_a.FieldValues['user_id']+'         '+dm.q_a.FieldValues['user_name']);
               dm.q_a.Next;
              end;
             dm.q_a.First;
             bsskinlistbox1.Selected[0]:=true;
             bsskinedit1.Text:=trim(dm.q_a.FieldValues['user_id']);
             bsskinedit2.Text:=trim(dm.q_a.FieldValues['user_name']);
             bsskinedit3.Text:=trim(dm.q_a.FieldValues['user_qx']);
           //  if pos('1',trim(bsskinedit3.Text))<>0 then
             for i:=1 to  bsskinchecklistbox1.Items.Count do
              begin
               if pos(inttostr(i),trim(bsskinedit3.Text))<>0 then
                bsskinchecklistbox1.Checked[i-1] :=true
               else
                bsskinchecklistbox1.Checked[i-1]:=false;
              end;
           end;

   ///
 end;  
end;

procedure Tuser1.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   key:=#0;
   postmessage(handle,WM_KEYDOWN,VK_TAB,0);
  end;
end;

end.