⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 umain.pas

📁 客户管理系统用delphi做
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
      Exit;
    end;
    if dm.ADOTable1.Locate('Name_U',StrName,[locaseinsensitive])=true then
    begin
      MES.MessageDlg('该姓名已经存在!',mtinformation,[mbok],0);
      Exit;
    end;
    with DM.ADOTable1 do
    begin
      insert;
      Fieldbyname('ComPany_U').AsString:=bsSkinEdit1.Text;
      Fieldbyname('Branch_U').AsString:=bsSkinEdit2.Text;
      Fieldbyname('Name_U').AsString:=bsSkinEdit3.Text;
      Fieldbyname('Duty_U').AsString:=bsSkinComboBox1.Text;
      Fieldbyname('Realation_U').AsString:=bsSkinEdit4.Text;
      Fieldbyname('Email_U').AsString:=bsSkinEdit5.Text;
      Fieldbyname('Adress_U').AsString:=bsSkinEdit6.Text;
      Fieldbyname('State_U').AsString:=bsSkinComboBox3.Text;
      Fieldbyname('Import_U').AsString:=bsSkinComboBox4.Text;
      Fieldbyname('Problem_U').AsString:=bsSkinComboBox5.Text;
      Fieldbyname('Untie_U').AsString:=bsSkinComboBox6.Text;
      Fieldbyname('Server_U').AsString:=bsSkinEdit7.Text;
      Fieldbyname('Sun_U').AsString:=bsSkinEdit8.Text;
      Fieldbyname('Console_U').AsString:=bsSkinEdit9.Text;
      Fieldbyname('Memo_U').AsString:=bsSkinMemo1.Text;
      Fieldbyname('Sex_U').AsString:=bsSkinComboBox2.Text;
      post;
    end;
    for i:=23 to 37 do
    begin
      if Components[i].ClassName='TbsSkinEdit' then
      begin
        TbsSkinEdit(Components[i]).Text:='';
        TbsSkinEdit(ComPonents[i]).ReadOnly:=false;
        end
      else
        begin
        if Components[i].ClassName='TbsSkinComboBox' then
        TbsSkinComboBox(ComPonents[i]).Text:='';
        TbsSkinComboBox(ComPonents[i]).Enabled:=false;
      end;
    end;
        bsSkinMemo1.Clear;
    bsSkinButton2.Enabled:=true;
    bsSkinButton4.Enabled:=true;
    end
  else
    begin
    if(bsSkinButton1.Enabled=false)or(bsSkinButton2.Enabled=true)then
    begin
      if bsSkinEdit3.Text='' then
      begin
        Mes.MessageDlg('姓名不能为空！',mtinformation,[mbok],0);
        Exit;
      end;
      with DM.ADOTable1 do
      begin
        Edit;
        Fieldbyname('ComPany_U').AsString:=bsSkinEdit1.Text;
        Fieldbyname('Branch_U').AsString:=bsSkinEdit2.Text;
        Fieldbyname('Name_U').AsString:=bsSkinEdit3.Text;
        Fieldbyname('Duty_U').AsString:=bsSkinComboBox1.Text;
        Fieldbyname('Realation_U').AsString:=bsSkinEdit4.Text;
        Fieldbyname('Email_U').AsString:=bsSkinEdit5.Text;
        Fieldbyname('Adress_U').AsString:=bsSkinEdit6.Text;
        Fieldbyname('State_U').AsString:=bsSkinComboBox3.Text;
        Fieldbyname('Import_U').AsString:=bsSkinComboBox4.Text;
        Fieldbyname('Problem_U').AsString:=bsSkinComboBox5.Text;
        Fieldbyname('Untie_U').AsString:=bsSkinComboBox6.Text;
        Fieldbyname('Server_U').AsString:=bsSkinEdit7.Text;
        Fieldbyname('Sun_U').AsString:=bsSkinEdit8.Text;
        Fieldbyname('Console_U').AsString:=bsSkinEdit9.Text;
        Fieldbyname('Memo_U').AsString:=bsSkinMemo1.Text;
        Fieldbyname('Sex_U').AsString:=bsSkinComboBox2.Text;
        post;
      end;
      for i:=23 to 37 do
      begin
        if Components[i].ClassName='TbsSkinEdit' then
        begin
          TbsSkinEdit(ComPonents[i]).ReadOnly:=true;
          end
        else
          begin
            if Components[i].ClassName='TbsSkinComboBox' then
            TbsSkinComboBox(ComPonents[i]).Enabled:=false;
        end;
      end;
      bsSkinButton1.Enabled:=true;
      bsSkinButton4.Enabled:=true;
    end;
  end;
  bsSkinMemo1.ReadOnly:=true;
end;

procedure TForm1.bsSkinButton4Click(Sender: TObject);
begin
  if bsSkinEdit3.Text='' then
  begin
    MES.MessageDlg('选择要删除的数据！',mtinformation,[mbok],0);
    Exit;
  end;
  if MEs.MessageDlg('确定删除数据吗？',mtinformation,[mbyes,mbno],0)=mryes then
  begin
    DM.ADOTable1.Delete;
    bsSkinEdit1.Text:='';
    bsSkinEdit2.Text:='';
    bsSkinEdit3.Text:='';
    bsSkinEdit4.Text:='';
    bsSkinEdit5.Text:='';
    bsSkinEdit6.Text:='';
    bsSKinEdit7.Text:='';
    bsSkinEdit8.Text:='';
    bsSkinEdit9.Text:='';
    bsSkinComboBox1.text:='';
    bsSkinComboBox2.text:='';
    bsSkinComboBox3.text:='';
    bsSKinComboBox4.text:='';
    bsSKinComboBox5.text:='';
    bsSKinComboBox6.text:='';
    bsSkinButton9.Enabled:=false;
    bsSkinButton6.Enabled:=false;
    bsSkinButton5.Enabled:=false;
    bsSkinButton7.Enabled:=false;
    bsSkinButton8.Enabled:=false;
    bsSkinButton10.Enabled:=false;
    bsSkinMemo1.Clear;
        dm.ADOTable2.Filtered:=false;
    Dm.ADOTable2.Filter:='姓名='''+bsSkinEdit3.Text+'''';
    Dm.ADOTable2.Filtered:=true;
    with DM.ADOTable3 do
    begin
      Filtered:=false;
      Filter:='姓名='''+bsSkinEdit3.Text+'''';
      Filtered:=true;
    end;
  end;

end;

procedure TForm1.bsSkinDBGrid2CellClick(Column: TbsColumn);
var
  str:sTRING;
  i:integer;
begin
  with DM.ADOTable2 do
  begin
    bsSkinDateEdit1.Date:=Fieldbyname('日期').AsDateTime;
    bsSkinEdit10.Text:=Fieldbyname('主题').AsString;
    bsSkinMemo2.Text:=Fieldbyname('内容').AsString;
    str:=Fieldbyname('完成').AsString;
    for i:=0 to 2 do
    begin
      if bsSkinComboBox7.Items.Strings[i]=str then
      begin
         bsSkinComboBox7.ItemIndex:=i;
      end;
    end;
  end;
end;

procedure TForm1.bsSkinButton5Click(Sender: TObject);
begin
  if bsSkinEdit3.Text='' then
  begin
    MES.MessageDlg('选择客户!',mtinformation,[mbok],0);
    Exit;
  end;
  with DM.ADOTable2 do
  begin
    insert;
    Fieldbyname('姓名').AsString:=bsSkinEdit3.Text;
    Fieldbyname('日期').AsDateTime:=bsSkinDateEdit1.Date;
    Fieldbyname('完成').AsString:=bsSkinComboBox7.Text;
    Fieldbyname('内容').AsString:=bsSkinMemo2.Text;
    Fieldbyname('主题').AsString:=bsSkinEdit10.Text;
    post;
  end;
  dm.ADOTable2.Filtered:=false;
  Dm.ADOTable2.Filter:='姓名='''+strName+'''';
  Dm.ADOTable2.Filtered:=true;
  bsSkinDateEdit1.Clear;
  bsSkinEdit10.Clear;
  bsSkinComboBox7.ItemIndex:=-1;
  bsSkinMemo2.Clear;
end;

procedure TForm1.bsSkinButton6Click(Sender: TObject);
begin
  if dm.ADOTable2.RecordCount = 0 then
  begin
    Mes.MessageDlg('没有要删除的数据!',mtinformation,[mbok],0);
    Exit;
  end;
  if MEs.MessageDlg('确定删除数据吗？',mtinformation,[mbyes,mbno],0)=mryes then
  dm.ADOTable2.Delete;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  stru:string;
begin
    stru:='';
    dm.ADOTable2.Filtered:=false;
    Dm.ADOTable2.Filter:='姓名='''+stru+'''';
    Dm.ADOTable2.Filtered:=true;
    with DM.ADOTable3 do
    begin
      Filtered:=false;
      Filter:='姓名='''+stru+'''';
      Filtered:=true;
    end;
    bsSkinDateEdit1.Clear;
    bsSkinEdit10.Clear;
    bsSkinComboBox7.ItemIndex:=-1;
    bsSkinMemo2.Clear;
    bsSkindateedit1.Date:=bsSkinDateEdit2.Date;
end;

procedure TForm1.bsSkinEdit11ButtonClick(Sender: TObject);
begin
 showmessage('');
end;

procedure TForm1.bsSkinButton7Click(Sender: TObject);
begin
    if bsSkinEdit3.Text='' then
  begin
    MES.MessageDlg('选择客户!',mtinformation,[mbok],0);
    Exit;
  end;
  with DM.ADOTable3 do
  begin
    insert;
    Fieldbyname('姓名').AsString:=bsSkinEdit3.Text;
    Fieldbyname('文档类型').AsString:=bsSKinComboBOx8.Text;
    Fieldbyname('路径').AsString:=bsSkinEdit11.Text;
    Fieldbyname('备注').AsString:=bsSkinEdit12.Text;
    post;
  end;
   with DM.ADOTable3 do
    begin
      Filtered:=false;
      Filter:='姓名='''+bsSkinEdit3.Text+'''';
      Filtered:=true;
    end;
   bsSkinComboBox8.ItemIndex:=-1;
   bsSkinEdit11.Clear;
   bsSkinEdit12.Clear;
end;

procedure TForm1.bsSkinButton8Click(Sender: TObject);
begin
  if DM.ADOTable3.RecordCount=0 then
  begin
    Mes.MessageDlg('没有要删除的数据!',mtinformation,[mbok],0);
    Exit;
  end;
  DM.ADOTable3.Delete;
end;

procedure TForm1.bsSkinSpeedButton1Click(Sender: TObject);
begin
   if bsSkinOpenDialog1.Execute then;
   bsSkinEdit11.Text:= bsSkinOpenDialog1.FileName;
end;

procedure TForm1.bsSkinDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
  nWidth:integer;
begin
  with bsSkindbGrid1.Canvas do
    begin
      nWidth := TextWidth(Column.Field.AsString) + 2;
      if nWidth > Column.Width then Column.Width := nWidth;
    end;
  with tbsSkindbgrid(sender) do
  begin
   if ((state = [gdselected]) or (state=[gdselected,gdfocused]))  then
    begin
     canvas.font.color :=clwhite;
     canvas.brush.color :=$00c08080;
    end
    else
    begin
      if datasource.dataset.recno mod 2<>0 then
        canvas.brush.color :=clwhite
      else
        canvas.brush.color :=$00cffefd;
    end;
    bsSkindbGrid1.defaultdrawcolumncell(rect, datacol, column, state);
  end;
  bsSkindbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TbsSkinDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;
end;

procedure TForm1.bsSkinButton9Click(Sender: TObject);
begin
  with DM.ADOTable2 do
  begin
    Edit;
    Fieldbyname('日期').AsDateTime:=bsSkinDateEdit1.Date;
    Fieldbyname('主题').AsString:=bsSkinEdit10.Text;
    Fieldbyname('完成').AsString:=bsSkinComboBox7.Text;
    Fieldbyname('内容').AsString:=bsSkinMemo2.Text;
    post;
  end;
end;

procedure TForm1.bsSkinButton10Click(Sender: TObject);
begin
  with dm.ADOTable3 do
  begin
    Edit;
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -