conbrowse.~pas

书籍类别（种类编号

  24: lie:='X';
  end;
 result:= lie;
end;
procedure TConForm.CheckBox1Click(Sender: TObject);
begin
if  CheckBox1.Checked  then  //选择施工单位
    Combobox1.Enabled:=true
    else
    Combobox1.Enabled:=false;
end;

procedure TConForm.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then  //选择项目名称
 Combobox2.Enabled:=true
 else
 Combobox2.Enabled:=false;
end;

procedure TConForm.CheckBox3Click(Sender: TObject);
begin

if CheckBox3.Checked  then //选择大类
 Combobox3.Enabled:=true
 else
 Combobox3.Enabled:=false;
end;

procedure TConForm.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked  then    //选择小类
 Combobox4.Enabled:=true
 else
 Combobox4.Enabled:=false;
end;

procedure TConForm.CheckBox5Click(Sender: TObject);
begin
if CheckBox5.Checked  then    //选择合同序号
   Combobox5.Enabled:=true
   else
   Combobox5.Enabled:=false;
end;

procedure TConForm.CheckBox6Click(Sender: TObject);
begin

if  CheckBox6.Checked then   begin                               //选择日期
  YXEdit.Enabled:=true;
 YXEdit1.Enabled:=true ;
 end else begin
 YXEdit.Enabled:=false;
 YXEdit1.Enabled:=false;
 end;
end;

procedure TConForm.CheckBox7Click(Sender: TObject);
begin
if  CheckBox7.Checked then                                  //选择日期
 edit1.Enabled:=true
 else
 edit1.Enabled:=false;
end;

procedure TConForm.GetList;
begin
  with DM do
  begin
    ADOQuery3.Close;
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('select * from ResourseMaintype');
    ADOQuery3.Open;
    ComboBox1.Items.Clear;
    while not ADOQuery3.Eof do
    begin
      ComboBox3.Items.Add(ADOQuery3.FieldValues['MContent']);
      ADOQuery3.Next;
    end;
    end;
end;
procedure TConForm.ComboBox3Change(Sender: TObject);
 var
  TempNO:WORD;
  TempStr:string;
  i:integer;
begin
  if ComboBox3.Text='' then
     exit;
  ComboBox4.Text :='';
  
  TempStr:=ComboBox3.Text;
  with DM do
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select Maintype,MContent from ResourseMaintype ');
    ADOQuery1.SQL.Add('where MContent='''+TempStr+'''');
    ADOQuery1.Open;

    TempNO:=StrToInt(ADOQuery1.FieldValues['Maintype']);
    ComboBox4.Items.Clear;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from ResourceSubtype');
    ADOQuery1.Open;
    i:=0;
    while not ADOQuery1.Eof do
    begin
      if TempNo=StrToInt(COPY(ADOQuery1.FieldValues['Subtype'],0,2)) then begin
          i:=i+1;
          ComboBox4.Items.Add(ADOQuery1.FieldValues['SContent']);
          end;
      ADOQuery1.Next;
    end;

  end;
       if i=0 then begin
       checkBox4.Checked:=false;
       checkBox4.Enabled:=false;
       end else
       checkBox4.Enabled:=true;
end;

procedure TConForm.ToolButton1Click(Sender: TObject);
begin
mainForm.N7Click(Sender);
end;

procedure TConForm.Button2Click(Sender: TObject);
var
dd,dd1:integer;
dai,yu:string;
begin

   if Edit2.Text ='' then begin
    ShowMessage('    选择合同编号！！！');
    Exit;
  end;
   if Edit3.Text ='' then begin
    ShowMessage('    请填写借方！！！');
    Exit;
  end;
   if Edit4.Text ='' then begin
    ShowMessage('    请填写借或贷！！！');
    Exit;
  end;
   if Edit5.Text ='' then begin
    ShowMessage('    请填写记帐凭证！！！');
    Exit;
  end;
   if Edit6.Text ='' then begin
    ShowMessage('    请填写摘要！！！');
    Exit;
  end;
  DM.ADOQuery7.Close;
  DM.ADOQuery7.SQL.Clear;
  DM.ADOQuery7.SQL.Add('select * from detail where conNumber='''+Edit2.Text+''' and marking>0') ;
  DM.ADOQuery7.Open;
  if DM.ADOQuery7.RecordCount=0 then  exit;
      {DM.ADOQuery7.Close;
      DM.ADOQuery7.SQL.Clear;
      DM.ADOQuery7.SQL.Add('select * from detail where conNumber='''+Edit2.Text+''' and marking>1') ;
      DM.ADOQuery7.Open;
      if DM.ADOQuery7.RecordCount>0 then begin
      DM.ADOQuery7.Last;
      dai:=DM.ADOQuery7.FieldValues['daifang'];
      end else begin
       DM.ADOQuery7.Close;
       DM.ADOQuery7.SQL.Clear;
       DM.ADOQuery7.SQL.Add('select sum(daifang) as daisum from detail where conNumber='''+Edit2.Text+''' and marking=1') ;
       DM.ADOQuery7.Open;
       dai:=DM.ADOQuery7.FieldValues['daisum'];
      end;
  DM.ADOQuery7.Close;
  DM.ADOQuery7.SQL.Clear;
  DM.ADOQuery7.SQL.Add('select sum(jiefang) as jie from detail where conNumber='''+Edit2.Text+''' and marking=0 ') ;
  DM.ADOQuery7.Open;

  DM.StructADOQuery.Close;
  DM.StructADOQuery.SQL.Clear;
  DM.StructADOQuery.SQL.Add('select * from detail where conNumber='''+Edit2.Text+''' and marking=0 ') ;
  DM.StructADOQuery.Open;

  if  DM.StructADOQuery.RecordCount>0 then
  yu:=floattostr(strtofloat(dai)-strtofloat(DM.ADOQuery7.FieldValues['jie'])-strtofloat(Edit3.Text))
  else
  yu:=floattostr(strtofloat(dai)-strtofloat(Edit3.Text));
  }
  DM.StructADOQuery.Close;
  DM.StructADOQuery.SQL.Clear;
  DM.StructADOQuery.SQL.Add('select * from detail where conNumber='''+Edit2.Text+''' order by id') ;
  DM.StructADOQuery.Open;
  DM.StructADOQuery.Last;//余额移到最后
   //DM.StructADOQuery.RecordCount;
  yu:=DM.StructADOQuery.FieldValues['remain'];
  //dd1:=strtofloat(DM.StructADOQuery.FieldValues['remain'])-strtofloat(Edit3.Text);
  yu:=Format('%8.2f',[strtofloat(DM.StructADOQuery.FieldValues['remain'])-strtofloat(Edit3.Text)]);
  //yu:=floattostr(strtofloat(DM.StructADOQuery.FieldValues['remain'])-strtofloat(Edit3.Text));


  DM.ADOQuery7.Close;
  DM.ADOQuery7.SQL.Clear;
  DM.ADOQuery7.SQL.Add('select * from detail') ;
  DM.ADOQuery7.Open;
         DM.ADOQuery7.Append;
         DM.ADOQuery7.Edit;
         DM.ADOQuery7.FieldValues['ConNumber']:=Edit2.Text;
         DM.ADOQuery7.FieldValues['jiefang']:=Edit3.Text;
         DM.ADOQuery7.FieldValues['JorD']:=Edit4.Text;
         DM.ADOQuery7.FieldValues['jzpz']:=Edit5.Text;
         DM.ADOQuery7.FieldValues['remark']:=Edit6.Text;
         DM.ADOQuery7.FieldValues['MarkingContent']:='还款';
         DM.ADOQuery7.FieldValues['adddate']:=DateToStr(DateTimePicker1.Date);
         DM.ADOQuery7.FieldValues['remain']:=yu;
         DM.ADOQuery7.Post;
         ShowMessage('资料添加成功！！！');
         Edit3.Text:='';
  DM.detail.Close;
  DM.detail.Open;

  label13.Caption:='共计 '+inttostr(DM.detail.RecordCount)+' 条记录  ';
  
end;

procedure TConForm.DBGrid2CellClick(Column: TColumn);
begin
 Edit8.Text:='';
 Edit16.Text:='';
 Edit17.Text:='';
 if Dm.detail.SQL.Text='' then exit;
try
    if DBGrid2.SelectedField.DataSet.FieldValues['connumber']<>null then begin

        if  DBGrid2.SelectedField.DataSet.FieldValues['marking']>0 then begin
        RzPageControl1.TabIndex:=3;
        button3.Enabled:=false;
        button4.Enabled:=false;
        RzBitBtn2.Enabled:=true;
        RzBitBtn3.Enabled:=true;

        Edit14.Text:=DBGrid2.SelectedField.DataSet.FieldValues['connumber'];
        Edit19.Text:=DBGrid2.SelectedField.DataSet.FieldValues['remark'];
        DateTimePicker4.Date:=DBGrid2.SelectedField.DataSet.FieldValues['adddate'];
        if  DBGrid2.SelectedField.DataSet.FieldValues['marking']=1 then begin
            radiobutton3.Enabled:=true;
            radiobutton4.Enabled:=false;
            radiobutton3.Checked:=true;
            Edit16.Enabled:=true;
            Edit17.Enabled:=false;
            Edit16.Text:=DBGrid2.SelectedField.DataSet.FieldValues['daifang'];
            end;
         if  DBGrid2.SelectedField.DataSet.FieldValues['marking']=2 then begin
            radiobutton4.Enabled:=true;
            radiobutton3.Enabled:=false;
            radiobutton4.Checked:=true;
             Edit16.Enabled:=false;
            Edit17.Enabled:=true;
            Edit17.Text:=DBGrid2.SelectedField.DataSet.FieldValues['daifang'];
            end;
            Edit20.Text:=DBGrid2.SelectedField.DataSet.FieldValues['remain'];
        exit;
        end;
        if DBGrid2.SelectedField.DataSet.FieldValues['marking']=0 then
         RzPageControl1.TabIndex:=2;
          button3.Enabled:=true;
          button4.Enabled:=true;
          RzBitBtn2.Enabled:=false;
          RzBitBtn3.Enabled:=false;
        Edit7.Text:=DBGrid2.SelectedField.DataSet.FieldValues['connumber'];
        Edit8.Text:=DBGrid2.SelectedField.DataSet.FieldValues['jiefang'];
        Edit9.Text:=DBGrid2.SelectedField.DataSet.FieldValues['jord'];
        Edit10.Text:=DBGrid2.SelectedField.DataSet.FieldValues['jzpz'];
        Edit11.Text:=DBGrid2.SelectedField.DataSet.FieldValues['remark'];
        DateTimePicker2.Date:=DBGrid2.SelectedField.DataSet.FieldValues['adddate'];
    end;
  except
  end;
end;


procedure TConForm.Button3Click(Sender: TObject);
var
dd:integer;
begin

   DD:=dbgrid2.SelectedField.DataSet.FieldValues['ID'];
 if Edit7.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;

   if Edit8.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;
    if Edit9.Text ='' then begin
    ShowMessage('    请选择列表！！！');
    Exit;
  end;
   if MessageDlg('确定要修改吗？',mtConfirmation, [mbYes, mbNo], 0)= mrNo then Exit;

  DM.ADOQuery7.Close;
  DM.ADOQuery7.SQL.Clear;
  DM.ADOQuery7.SQL.Add('update detail set jiefang='''+Edit8.Text+''',jord='''+Edit9.Text+''',jzpz='''+Edit10.Text+
  ''',remark='''+Edit11.Text+''',adddate='''+DateToStr(DateTimePicker2.Date)+''' where id='+inttostr(DD)) ;
  DM.ADOQuery7.ExecSQL;
  ShowMessage('修改成功！！！');
  DM.detail.Close;
  DM.detail.Open;
  RefreshFinance;//更新财务记录
end;

procedure TConForm.Button4Click(Sender: TObject);
var
BIDD :integer;
begin
 if button3.Enabled=false then exit;
 if DBgrid2.SelectedField.DataSet.FieldValues['ID']<>null  then begin
    BIDD:=DBgrid2.SelectedField.DataSet.FieldValues['ID'];
    with DM do
    begin
      ADOQuery7.Close;
      ADOQuery7.SQL.Clear;
      ADOQuery7.SQL.Add('delete detail where ID='+IntToStr(BIDD));
      if MessageDlg('确定要删除吗？',mtConfirmation, [mbYes, mbNo], 0)= mrYes then begin
        ADOQuery7.ExecSQL;
        ShowMessage('数据删除成功！！！');
        detail.Close;
        detail.Open;
        label13.Caption:='共计 '+inttostr(detail.RecordCount)+' 条记录  ';
      end
      else
        Exit;
    end;
end;
RefreshFinance;//更新财务记录
end;




procedure TConForm.RzBitBtn1Click(Sender: TObject);
var
dd,aa:integer;
fu:string;
dai_bf,shenjihou:string;
begin
fu:='0';
dai_bf:='0';
aa:=0;
shenjihou:='0';
    if Edit18.Text ='' then begin
    ShowMessage('    选择合同编号！！！');
    Exit;
  end;

  if radiobutton1.Checked=true then begin //如果已经添加审计前金额就不再添加
         DM.ADOQuery7.Close;
         DM.ADOQuery7.SQL.Clear;
         DM.ADOQuery7.SQL.Add('select * from detail where conNumber='''+Edit18.Text+''' and marking=2') ;
         DM.ADOQuery7.Open;
         //字段 marking = 2 表示审计*后*价款
         //字段 marking = 1 表示审计审计*前*金额
         //////////////////////////////////////////////////////////////////////////////////////////
         if DM.ADOQuery7.RecordCount>0  then begin
         showmessage('已经添加过审计*后*价款，不能再添加审计*前*金额');
         exit;