set_system_un.pas

布林电话收费管理系统

unit set_system_un;

interface

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

type
  Tset_system = class(Tstand)
    bsSkinMessage1: TbsSkinMessage;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinXFormButton5: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinComboBox2: TbsSkinComboBox;
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure bsSkinXFormButton5Click(Sender: TObject);
    procedure bsSkinXFormButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  set_system: Tset_system;

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

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

procedure Tset_system.FormCreate(Sender: TObject);
var
//screen:tscreen;
i:integer;
begin
  inherited;
 bsskindateedit1.Date :=now;
 dm:=tdm.Create(nil);
 with dm do
  begin
   q_a.Close;
   q_a.SQL.Clear;
   q_a.SQL.Add('select * from system_set');
   q_a.Open;
  end;
  bsskincombobox2.Items.Clear;
  if screen.Imes.Count >0 then
 for i:=0 to screen.Imes.Count-1 do
  begin
    bsskincombobox2.Items.Add(screen.Imes[i]);
  end;
 if dm.q_a.Recordset.RecordCount >0 then
  begin
    bsskinedit1.Text:=dm.q_a.FieldValues['SYS_NAME'] ;
    bsskinedit2.Text:=dm.q_a.FieldValues['SYS_tel'] ;
    bsskinedit4.Text:=dm.q_a.FieldValues['SYS_memo1'] ;
    bsskincombobox1.ItemIndex:=strtoint(dm.q_a.FieldValues['SYS_end'])-1;
    bsskindateedit1.Date :=dm.q_a.FieldValues['SYS_date'] ;
  if not varisnull(dm.q_a.FieldValues['SYS_memo2']) then
      bsskincombobox2.Items[-1]:=dm.q_a.FieldValues['SYS_memo2'];
  end;
end;

procedure Tset_system.bsSkinXFormButton2Click(Sender: TObject);
begin
  inherited;
  if trim(bsskinedit1.Text)<>'' then
   begin
    if bsskinmessage1.MessageDlg('你是否确定保存当前的系统设置数据?',mtconfirmation,[mbyes,mbcancel],0)=mryes then
     begin
      dm:=tdm.Create(nil);
      with dm do
       begin
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('select * from system_set');
        q_a.Open;
       end;
      if dm.q_a.Recordset.RecordCount >0 then
       //说明已经定义,当前只是修改
       begin
        with dm do
         begin
          q_a.Close;
          q_a.SQL.Clear;
          q_a.SQL.Add('update system_set set ');
          q_a.SQL.Add('sys_name=:sys_name,sys_date=:sys_date,');
          q_a.SQL.Add('sys_tel=:sys_tel,sys_end=:sys_end,');
          q_a.SQL.Add('sys_memo1=:sys_memo1,sys_memo2=:sys_memo2 where sys_bh=:sys_bh');
          q_a.Parameters.ParamByName('sys_bh').Value:='1';
          q_a.Parameters.ParamByName('sys_name').Value:=bsskinedit1.Text ;
          q_a.Parameters.ParamByName('sys_tel').Value:=bsskinedit2.Text ;
          q_a.Parameters.ParamByName('sys_memo1').Value:=bsskinedit4.Text ;
          q_a.Parameters.ParamByName('sys_date').Value:=now;
          q_a.Parameters.ParamByName('sys_memo2').Value:=bsskincombobox2.Items [bsskincombobox2.ItemIndex] ;
          q_a.Parameters.ParamByName('sys_end').Value:=inttostr(bsskincombobox1.ItemIndex+1);
          q_a.Prepared;
          q_a.ExecSQL;
          system_dw:= trim(bsskinedit1.Text);
          close;
          writetolog('0.00');
         end;
       end
      else
       //说明没有进行定义,新录入数据
       begin
        with dm do
         begin
          q_a.Close;
          q_a.SQL.Clear;
          q_a.SQL.Add('insert into system_set (sys_bh,sys_name,sys_date,sys_tel,sys_end,sys_memo1,sys_end_date,sys_memo2)');
          q_a.SQL.Add('values(:sys_bh,:sys_name,:sys_date,');
          q_a.SQL.Add(':sys_tel,:sys_end,');
          q_a.SQL.Add(':sys_memo1,:sys_end_date,:sys_memo2)');
          q_a.Parameters.ParamByName('sys_bh').Value:='1';
          q_a.Parameters.ParamByName('sys_name').Value:=bsskinedit1.Text ;
          q_a.Parameters.ParamByName('sys_tel').Value:=bsskinedit2.Text ;
          q_a.Parameters.ParamByName('sys_memo1').Value:=bsskinedit4.Text ;
          q_a.Parameters.ParamByName('sys_memo2').Value:=bsskincombobox2.Items [bsskincombobox2.ItemIndex] ;
          q_a.Parameters.ParamByName('sys_date').Value:=now;
          q_a.Parameters.ParamByName('sys_end').Value:=inttostr(bsskincombobox1.ItemIndex+1);
          q_a.Parameters.ParamByName('sys_end_date').Value:=now;
          q_a.Prepared;
          q_a.ExecSQL;
          system_dw:= trim(bsskinedit1.Text);
          close;
          writetolog('0.00');
         end;
       end;
     end
    else
     close;
   end
  else
   begin
    bsskinmessage1.MessageDlg('单位名称不能为空!!!!',mtwarning,[mbok],0);
    bsskinedit1.SetFocus;
   end;
end;

procedure Tset_system.bsSkinXFormButton5Click(Sender: TObject);
begin
  inherited;
if  bsskinmessage1.MessageDlg('以下将进行系统的总清，也就是清除系统内的所有数据？',mtwarning,[mbyes,mbno],0)=mryes then
  if    bsskinmessage1.MessageDlg('以下将进行系统的总清，也就是清除系统内的所有数据？',mtwarning,[mbyes,mbno],0)=mryes then
     if   bsskinmessage1.MessageDlg('以下将进行系统的总清，也就是清除系统内的所有数据？',mtwarning,[mbyes,mbno],0)=mryes then
     begin
      dm:=tdm.Create(nil);
      with dm do
       begin
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TUSER');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from DATA_YW');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_USER');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_CGYW');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_CHANGE');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_XH');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_LOG');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_UP_MX');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_UP');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_NO');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_YES');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from no_DATA_YW');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from system_set');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from count_end');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('insert into tuser (user_id,user_name,user_qx,user_pass)');
        q_a.SQL.Add('values(:user_id,:user_name,:user_qx,:user_pass)');
        q_a.Parameters.ParamByName('user_id').Value :='100';
        q_a.Parameters.ParamByName('user_name').Value:='系统管理员';
        q_a.Parameters.ParamByName('user_QX').Value :='123456789S';
        q_a.Parameters.ParamByName('user_PASS').Value :='100';
        q_a.Prepared;
        q_a.ExecSQL;
       end;
        user_id:='';
        user_name:='';
        user_qx:='';
        bsskinmessage1.MessageDlg('系统总清完毕，建议用户退出当前程序，重新登录！'+chr(13)+'系统管理员初始为:100  口令为:100',mtinformation,[mbyes],0);
        application.Terminate;
     end;
end;

procedure Tset_system.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
       dm:=tdm.Create(nil);
      with dm do
       begin
 {       q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TUSER');
        q_a.Prepared;
        q_a.ExecSQL;}
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from DATA_YW');
        q_a.Prepared;
        q_a.ExecSQL;
  {      q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_USER');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_CGYW');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_CHANGE');
        q_a.Prepared;
        q_a.ExecSQL;  }
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_XH');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_LOG');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_UP_MX');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_UP');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_NO');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from TEL_YES');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from no_DATA_YW');
        q_a.Prepared;
        q_a.ExecSQL;
  {      q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from system_set');
        q_a.Prepared;
        q_a.ExecSQL;
        q_a.Close;
        q_a.SQL.Clear;
        q_a.SQL.Add('delete from count_end');
        q_a.Prepared;
        q_a.ExecSQL;  }
      end;
end;

end.