addconform.pas

书籍类别（种类编号

unit AddConForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, RzCmboBx, PasComboxGrid, ExtCtrls,
  RzEdit, DBCtrls, RzDBEdit;

type
  TAddContract = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    GroupBox4: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    ComboBox2: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    RzComboBox1: TRzComboBox;
    ComboxGrid2: TComboxGrid;
    Edit8: TEdit;
    Label4: TLabel;
    Edit9: TEdit;
    Label5: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    RzComboBox2: TRzComboBox;
    ComboxGrid1: TComboxGrid;
    Edit3: TEdit;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure GetList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure RzComboBox1DropDown(Sender: TObject);
    procedure RzComboBox2DropDown(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

 
  private
    { Private declarations }
    public
    { Public declarations }
  end;

var
  AddContract: TAddContract;

implementation
uses inc,DBM, ConBrowse;
{$R *.dfm}

procedure TAddContract.BitBtn1Click(Sender: TObject);
var
  RS,RS1:string;
  RSID,RSID1    :ShortString;
  RTID    :string;
  RName   :string;
  RDate   :string;
  SQLStr  :string;
begin
  if (ComboBox2.Items.Strings[0]<>'') and (ComboBox2.Text='') then begin
    ShowMessage('    请选择合同小类！！！');
    Exit;
  end;
  if ComboBox1.Text ='' then begin
    ShowMessage('    请选择合同分类名！！！');
    Exit;
  end;
   if RzComboBox1.Text ='' then begin
    ShowMessage('    请选择施工单位！！！');
    Exit;
  end;
  if Edit1.Text ='' then begin
    ShowMessage('    请填写项目名称！！！');
    Exit;
  end;
    if Edit2.Text ='' then begin
    ShowMessage('    请填写合同编号！！！');
    Exit;
  end;
    with DM do
    begin
      RS:=ComboBox1.Text;
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select Maintype from ResourseMaintype where MContent='''+RS+'''');
      ADOQuery3.Open;
      RSID:=ADOQuery3.FieldValues['Maintype'];
      
      if  ComboBox2.Text<>'' then begin
      RS1:=ComboBox2.Text;
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select Subtype from ResourceSubtype where SContent='''+RS1+'''');
      ADOQuery3.Open;
      RSID1:=ADOQuery3.FieldValues['Subtype'];
      end else
      RSID1:='';
      end;
    RTID:=RzComboBox1.Text;
    RName:=Edit1.Text;
    RDate:=FormatDateTime('yyyy-MM-dd',DateTimePicker1.DateTime);
    if attr='Edit' then
    try
      with DM do
        begin
        ADOQuery3.Close;
        ADOQuery3.SQL.Clear;
        SQLStr:='update Contract set Main_id='''+RSID+''',';
        SQLStr:=SQLStr+'Resource_id='''+RSID1+''',';
        SQLStr:=SQLStr+'ConstructUnit='''+RTID+''',';
        SQLStr:=SQLStr+'acceptance='''+ComboBox4.Text+''','+'BSQK='''+ComboBox5.Text+''',';
        SQLStr:=SQLStr+'remark='''+trim(Memo1.Text)+''','+'AddTime='''+DateTimeToStr(Now)+''',';
        SQLStr:=SQLStr+'tel='''+Edit3.Text+''','+'ItemName='''+RName+''','+'ConNumber='''+Edit2.Text+''','+'ConPerson='''+Edit8.Text+''','+'locate='''+Edit9.Text+''',';
        SQLStr:=SQLStr+'SignTime='''+RDate+''',';
        if checkbox2.Checked=true then begin
            if rzcombobox2.Text ='' then begin
            ShowMessage('    请选择合同编号！！！');
            Exit;
             end;
          SQLStr:=SQLStr+' biaoji=1 ,'+' connumber_1='''+rzcombobox2.Text+'''';
        end else
        SQLStr:=SQLStr+' biaoji=0  ,'+' connumber_1=''''';
        SQLStr:=SQLStr+' where RID='''+inttostr(RID)+'''';
        ADOQuery3.SQL.Add(SQLStr);
        ADOQuery3.ExecSQL;
        ShowMessage('资料修改成功！！！');
        SetLogs('资料修改成功');
        //ConForm.TreeView1Click(Sender);

        if checkbox1.Checked=false then begin
          //attr:='';
          Close;
          end;
      end;
    except
      ShowMessage('资料提交失败！！！');
    end
    else begin
    try
       with DM do
       begin
         ADOQuery3.Close;
         ADOQuery3.SQL.Clear;
         SQLStr:='select * from Contract';
         ADOQuery3.SQL.Add(SQLStr);
         ADOQuery3.Open;
         ADOQuery3.Append;
         ADOQuery3.Edit;
         ADOQuery3.FieldValues['Main_id']:=RSID;
         ADOQuery3.FieldValues['Resource_id']:=RSID1;
         ADOQuery3.FieldValues['ConstructUnit']:=RTID;
         ADOQuery3.FieldValues['SignTime']:=RDate;
         ADOQuery3.FieldValues['ItemName']:=RName;

       ADOQuery3.FieldValues['ConNumber']:=Edit2.Text;
       ADOQuery3.FieldValues['Conperson']:=Edit8.Text;
       ADOQuery3.FieldValues['locate']:=Edit9.Text;
       ADOQuery3.FieldValues['BSQK']:=ComboBox5.Text;
       ADOQuery3.FieldValues['Remark']:=trim(Memo1.Text);
       ADOQuery3.FieldValues['acceptance']:=ComboBox4.Text;
       ADOQuery3.FieldValues['tel']:=Edit3.Text;
        if checkbox2.Checked=true then begin
         if rzcombobox2.Text ='' then begin
            ShowMessage('    请选择合同编号！！！');
            Exit;
             end;
        ADOQuery3.FieldValues['biaoji']:=1;
        ADOQuery3.FieldValues['connumber_1']:=rzcombobox2.Text;
        end else begin
        ADOQuery3.FieldValues['biaoji']:=0;
        ADOQuery3.FieldValues['connumber_1']:='';
        end;
       ADOQuery3.Post;
        
         ShowMessage('资料添加成功！！！');
         SetLogs('资料添加成功');
      if checkbox1.Checked=true then begin
         edit1.Text:='';
         Edit2.Text:='';
         edit8.Text:='';
         Edit9.Text:='';
         RzComboBox1.Text:='';
        end  else
        close;

         end;
    except
      ShowMessage('资料提交失败！！！');
    end;
  end;
end;



procedure TAddContract.FormShow(Sender: TObject);
var
  SQLStr:string;
  Resource_id:ShortString;
  i,j,k:integer;
  TempName:string;
begin
   ComboBox1.Items.Clear;
  ComboBox2.Items.Clear;
  RzComboBox1.Items.Clear;
  GetList;        //获取类型表
  if attr='Edit' then begin
   addcontract.Caption:='修改合同';
   checkbox1.Caption:='连续修改';
    with DM do
    begin
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      SQLStr:='select *'+
              ' from Contract,ResourseMaintype RS where Main_id=RS.Maintype'+
              ' and  RID='+inttostr(RID);
      ADOQuery3.SQL.Add(SQLStr);
      ADOQuery3.Open;
      Resource_id:=COPY(ADOQuery3.FieldValues['Main_id'],0,2);//获取两个字符
      //TempName   :=ADOQuery3.FieldValues['ConstructUnit'];
      Edit1.Text :=ADOQuery3.FieldValues['ItemName'];
      Edit2.Text :=ADOQuery3.FieldValues['ConNumber'];
      Edit9.Text :=ADOQuery3.FieldValues['locate'];
      Edit8.Text :=ADOQuery3.FieldValues['Conperson'];
      if ADOQuery3.FieldValues['tel']<>null  then
      Edit3.Text :=ADOQuery3.FieldValues['tel'];
        if  ADOQuery3.FieldValues['biaoji']=1 then  begin
            checkbox2.Checked:=true;
            rzcombobox2.Visible:=true;
            rzcombobox2.Text :=ADOQuery3.FieldValues['ConNumber_1'];
            end;
      ComboBox5.Text :=ADOQuery3.FieldValues['BSQK'];
      RzComboBox1.Text:=ADOQuery3.FieldValues['ConstructUnit'] ;
      Memo1.Text :=ADOQuery3.FieldValues['Remark'];
      ComboBox4.Text :=ADOQuery3.FieldValues['acceptance'];
      DateTimePicker1.DateTime :=ADOQuery3.FieldValues['SignTime'];

  If  ADOQuery3.FieldValues['Resource_id']<>'    ' then begin
      TempName   :=ADOQuery3.FieldValues['Resource_id'];
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select * from ResourceSubtype where Subtype='+TempName);
      ADOQuery3.Open;
      TempName   :=ADOQuery3.FieldValues['Scontent'];

      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select * from ResourceSubtype');
      ADOQuery3.Open;
      while not ADOQuery3.Eof do
      begin
      if Resource_id=COPY(ADOQuery3.FieldValues['Subtype'],0,2) then
         ComboBox2.Items.Add(ADOQuery3.FieldValues['Scontent']);
         ADOQuery3.Next;
      end;
      for i:=0 to ComboBox2.Items.Count -1 do
      begin
        if ComboBox2.Items.Strings[i]=TempName then
           ComboBox2.ItemIndex :=i;
      end;
   end;   
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select MContent from ResourseMaintype ');
      ADOQuery3.SQL.Add(' where Maintype='''+Resource_id+'''');
      ADOQuery3.Open;
      for k:=0 to ComboBox1.Items.Count -1 do
      begin
        if ComboBox1.Items.Strings[k]=ADOQuery3.FieldValues['MContent'] then
          ComboBox1.ItemIndex :=k;
      end;
    end;
  end;
  end;
procedure TAddContract.ComboBox1Change(Sender: TObject);
 var
  TempNO:WORD;
  TempStr:string;
begin
  ComboBox2.Text :='';
  if ComboBox1.Text='' then
     exit;
  TempStr:=ComboBox1.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']);
    ComboBox2.Items.Clear;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from ResourceSubtype');
    ADOQuery1.Open;
    while not ADOQuery1.Eof do
    begin
      if TempNo=StrToInt(COPY(ADOQuery1.FieldValues['Subtype'],0,2)) then
        ComboBox2.Items.Add(ADOQuery1.FieldValues['SContent']);
      ADOQuery1.Next;
    end;

  end;
end;
procedure TAddContract.GetList;
begin
  Edit1.Text :='';
  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
      ComboBox1.Items.Add(ADOQuery3.FieldValues['MContent']);
      ADOQuery3.Next;
    end;
    ADOQuery3.Close;
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('select DepName from ConstructUnit order by DepName');
    ADOQuery3.Open;
    while not ADOQuery3.Eof do
    begin
       ADOQuery3.Next;
    end;
  end;
end;

procedure TAddContract.FormClose(Sender: TObject;
  var Action: TCloseAction);
  var
   m_RecNum2:integer;
begin
 // if attr='Edit' then begin
  with DM do
  begin
 m_RecNum2:= m_RecNum;
 ADOQuery2.Close;
 ADOQuery2.Open;
 ADOQuery2.Sort:=m_Sort;
 ADOQuery2.RecNo:=m_RecNum2;
 end;
// end;
 attr:='';
end;

procedure TAddContract.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TAddContract.RzComboBox1DropDown(Sender: TObject);
begin
if ComboxGrid2.Execute then
  begin
     RzCombobox1.Text:=comboxgrid2.Rvalues1;
     Edit8.Text:=comboxgrid2.Rvalues2;
     RzCombobox1.Refresh;
  End;
end;

procedure TAddContract.RzComboBox2DropDown(Sender: TObject);
begin
if ComboxGrid1.Execute then
  begin
     RzCombobox2.Text:=comboxgrid1.Rvalues2;
     RzCombobox2.Refresh;
  End;
end;

procedure TAddContract.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true then
rzcombobox2.Visible:=true
else
rzcombobox2.Visible:=false;
end;

procedure TAddContract.Label15Click(Sender: TObject);
begin

with DM do begin
    ADOQuery9.Close;
    ADOQuery9.SQL.Clear;
    ADOQuery9.SQL.Add('select conNumber_1 from contract where conNumber_1=''0''');
    ADOQuery9.Open;
    while not ADOQuery9.Eof do begin
    ADOQuery9.Edit;
    ADOQuery9.FieldValues['conNumber_1']:='';
    ADOQuery9.Post;
    ADOQuery9.Next;
    end;//while
end; //DM
ShowMessage('成功！');
end;

procedure TAddContract.Button1Click(Sender: TObject);
begin
 with DM do begin
  ADOQuery2.Next;
  if Conform.DBGrid1.SelectedField.DataSet.FieldValues['RID']<>null then begin
     RID:=Conform.DBGrid1.SelectedField.DataSet.FieldValues['RID'];
     AddContract.FormShow(sender);
 end;
 end;
end;

procedure TAddContract.CheckBox1Click(Sender: TObject);
begin
if attr='Edit' then begin
if checkbox1.Checked=true then  begin
button1.Visible:=true;
button2.Visible:=true;
end else begin
button1.Visible:=false;
button2.Visible:=false;
end;
end;
end;
procedure TAddContract.Button2Click(Sender: TObject);
begin
 with DM do begin
  ADOQuery2.Prior;
  if Conform.DBGrid1.SelectedField.DataSet.FieldValues['RID']<>null then begin
     RID:=Conform.DBGrid1.SelectedField.DataSet.FieldValues['RID'];
     AddContract.FormShow(sender);
 end;
 end;
end;

end.