mainunit.pas

来自「这是为工商所开发的工商收费簿套打软件,借初学者学习」· PAS 代码 · 共 489 行 · 第 1/2 页

                sSQL := 'select * from T1 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form101s := TFORM101S.Create(SELF);
                Form101S.ShowModal;
            end;
        102: begin
                sSQL := 'select * from T2 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form102s := TFORM102S.Create(SELF);

                Form102S.ShowModal;
            end;
        103: begin
                sSQL := 'select * from T3 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form103s := TFORM103S.Create(SELF);

                Form103S.ShowModal;
            end;
        104: begin
                sSQL := 'select * from T4 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form104s := TFORM104S.Create(SELF);

                Form104S.ShowModal;
            end;
        105: begin
                sSQL := 'select * from T5 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form105s := TFORM105S.Create(SELF);
                Form105S.ShowModal;
            end;
        106: begin
                sSQL := 'select * from T6 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form106s := TFORM106S.Create(SELF);
                Form106S.ShowModal;
            end;
        107: begin
                sSQL := 'select * from T7 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form107s := TFORM107S.Create(SELF);
                Form107S.ShowModal;
            end;
        108: begin
                sSQL := 'select * from T8 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form108s := TFORM108S.Create(SELF);
                Form108S.ShowModal;
            end;
        109: begin
                sSQL := 'select * from T9 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form109s := TFORM109S.Create(SELF);
                Form109S.ShowModal;
            end;
        110: begin
                sSQL := 'select * from T10 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form110s := TFORM110S.Create(SELF);
                Form110S.ShowModal;
            end;
        1111213: begin
                sSQL := 'select * from T11T12T13 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form1111213s := TFORM1111213S.Create(SELF);
                Form1111213S.ShowModal;
            end;
        114: begin
                sSQL := 'select * from T14 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form114s := TFORM114S.Create(SELF);
                Form114S.ShowModal;
            end;
        115: begin
                sSQL := 'select * from T15 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form115s := TFORM115S.Create(SELF);
                Form115S.ShowModal;
            end;
        11617: begin
                sSQL := 'select * from T16t17 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form1617s := TFORM1617S.Create(SELF);
                Form1617S.ShowModal;
            end;
        118192224: begin
                sSQL := 'select * from T18T19T22T24 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                form18_24s := TFORM18_24S.Create(SELF);
                Form18_24S.ShowModal;
            end;
        300:  begin
                sSQL := 'select * from F3 where 合同编号=''' +
                    adoquery1.fieldbyname('合同编号').Text + '''';
                sID := adoquery1.fieldbyname('合同编号').Text;
                formTF3 := TFORMTF3.Create(SELF);
                FormTF3.ShowModal;
            end;

    end;
    FlashREC;
end;

procedure TForm1.LbSpeedButton6Click(Sender: TObject);
begin
   //  form3.ShowModal;
   LbButton13.Click;
end;

procedure TForm1.LbSpeedButton7Click(Sender: TObject);
var
  ADOMB:TADOQuery;
begin
  if adoquery1.RecordCount =0 then BEGIN
       Application.MessageBox('没有源记录，请先输入一个合同数据再建立模板!',
          '提示',MB_OK OR MB_ICONERROR );
       exit;
  end ELSE begin
       if Application.MessageBox('是否真的根据当前合同建立模板?新模板将覆盖旧模板！','提示',
          MB_yesno OR MB_ICONQUESTION )=7 THEN
          Exit;
  END;
  DelAnotherTable('MD2005');
  ADOMB:=TADOQuery.Create(SELF);
  WITH ADOMB DO begin
    Connection:=DM.DataModule2.ADOConnection1 ;
    dm.DataModule2.ADOConnection1.BeginTrans;
    TRY
        SQL.Text :='delete * FROM TID WHERE 合同编号=''MD2005''';
        ExecSQL ;
        DM.DataModule2.ADOConnection1.CommitTrans;
    except
        DM.DataModule2.ADOConnection1.RollbackTrans;
    end;
    AppendMB2005 (ADOQuery1.FIELDBYNAME('合同编号').Text );
    free;
   END;
   Application.MessageBox('模板已保存完毕!','提示',MB_OK OR MB_ICONINFORMATION);
end;

procedure TForm1.AppendMB2005(SID: string);

  function getfields( stn:string;VAR svn:String):string ;
  var
    j:integer;
    adotemp:TADOQuery;
  begin
    result:='';
    svn:='';
    adotemp:=TADOQuery.Create(self);
    with adotemp do begin
      Connection :=dm.DataModule2.ADOConnection1 ;
      SQL.Text :='select * from '+ stn;
      open;
      for j :=0  to FieldCount-1 do begin
         result:=Result+ adotemp.Fields[j].DisplayName +',';
         if adotemp.Fields[j].DisplayName='合同编号' then
            svn:=svn+'''MD2005'','
         else
            svn:=svn+''''+VarToStr( adotemp.Fields[j].AsVariant) +'''' +',';

      end;
      free;
      result:= Copy(result,0,Length (Result)-1);
      svn := Copy(SVN,0,Length (SVN)-1);
    end;

  end;
var
  I:Integer;
  sf,sv:string;
  ADOMBSQL:TADOQuery;
begin
  ADOMBSQL:=TADOQUERY.Create(SELF);
  with ADOMBSQL do begin
    Connection :=DM.DataModule2.ADOConnection1;
    dm.DataModule2.ADOConnection1.BeginTrans;
    try

        for I := sTablename.Count - 1 downto 0 do begin
            Application.ProcessMessages ;
            sf:=getfields(sTablename[i],sv);
            //ShowMessage(sTablename[i]+#13+ sf+#13+sv);
            SQL.Text := 'insert into ' + sTablename[I] +
                        '('+sF+')VALUES ('+SV+')';

            ExecSQL;

        end;
        DM.DataModule2.ADOConnection1.CommitTrans;
    except
        DM.DataModule2.ADOConnection1.RollbackTrans;
    end;
    FREE;
  END;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  form1:=nil;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 if  Application.MessageBox('是否真的退出“嘉俊工商表格套打系统”？','询问'
  ,MB_YESNO+MB_ICONQUESTION )=IDYES then
  Application.Terminate ;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
    LbButton13.Click;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
SetForm.ShowModal;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
AboutForm.ShowModal;
end;

end.