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

📄 main.pas

📁 通过程序的试算平衡表
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    with ADOQuery1 do
    begin
      SQL.Clear;
      SQL.Add('Select * From MainIndex');
      Open;
      Last;
      Insert;
      FieldByName('ComName').AsString := '张家港市XX有限公司';
      FieldByName('CreateDate').AsDateTime := Now;
      FieldByName('Pzcfzb').AsInteger := ADOQuery2.FieldByName('IndexNo').AsInteger;
      FieldByName('Plrfpb').AsInteger := ADOQuery3.FieldByName('IndexNo').AsInteger;
      FieldByName('Pxjllb').AsInteger := ADOQuery4.FieldByName('IndexNo').AsInteger;
      Post;
         ListItem := ListView1.Items.Add;
         ListItem.Caption := fieldbyname('ComName').AsString;
         ListItem.ImageIndex := 0;
    Edit1.Text := FieldByName('ComName').AsString;
    DateTimePicker1.Date := FieldByName('CreateDate').AsDateTime;
    end;}
    InitEdit();
    ToolButtonSave.Enabled := True;
    FileSaveItem.Enabled := True;
    ToolButtonPrint.Enabled := True;
    FilePrintItem.Enabled := True;
    ToolButtonPrintView.Enabled := True;
    FilePrintViewItem.Enabled := True;
    FileOutputItem.Enabled := True;
    ToolbuttonNew.Enabled := False;
    FileNewItem.Enabled := False;
    ToolButtonOpen.Enabled := False;
    FileOpenItem.Enabled := False;
    ToolButtonDelet.Enabled := False;
    FileDeletItem.Enabled := False;
    Panel1.Visible := False;
    Panel2.Visible := True;
end;

procedure TMainForm.SetOpenExecute(Sender: TObject);

begin

    if ListView1.Selected is TListItem then
    begin

    with ADOQuery1 do
    begin
         SQL.Clear;
         SQL.Add('select * from MainIndex where ComName = '''+ListView1.Selected.Caption+'''');
         Open;
         First;
         ITableIndex1 := FieldByName('SerialNo').AsInteger;
         Edit1.Text := FieldByName('ComName').AsString;
         DateTimePicker1.Date := FieldByName('CreateDate').AsDateTime;
         ITableIndex2 := FieldByName('Pzcfzb').AsInteger;
         ITableIndex2a := FieldByName('Pzcfzba').AsInteger;
         ITableIndex3 := FieldByName('Plrfpb').AsInteger;
         ITableIndex4 := FieldByName('Pxjllb').AsInteger;

    end;

    with ADOQuery2 do
      begin
         SQL.Clear;
         SQL.Add('select * from ZCFZB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pzcfzb').AsInteger));
         Open;
         First;
      InTableOne();
      Close;
      end;

    with ADOQuery2a do
      begin
         SQL.Clear;
         SQL.Add('select * from ZCFZBA Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pzcfzba').AsInteger));
         Open;
         First;
      InTableOneA();
      Close;
      end;

    with ADOQuery3 do
      begin
         SQL.Clear;
         SQL.Add('select * from LRFPB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Plrfpb').AsInteger));
         Open;
         First;
      InTableTwo();
      Close;
      end;

    with ADOQuery4 do
      begin
         SQL.Clear;
         SQL.Add('select * from XJLLB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pxjllb').AsInteger));
         Open;
         First;
      InTableThree();
      Close;
      end;
    ADOQuery1.Close;
    ToolButtonSave.Enabled := True;
    FileSaveItem.Enabled := True;
    ToolButtonPrint.Enabled := True;
    FilePrintItem.Enabled := True;
    ToolButtonPrintView.Enabled := True;
    FilePrintViewItem.Enabled := True;
    FileOutputItem.Enabled := True;
    ToolbuttonNew.Enabled := False;
    FileNewItem.Enabled := False;
    ToolButtonOpen.Enabled := False;
    FileOpenItem.Enabled := False;
    ToolButtonDelet.Enabled := False;
    FileDeletItem.Enabled := False;
    Panel1.Visible := False;
    Panel2.Visible := True;
    end;
end;

procedure TMainForm.SetDelExecute(Sender: TObject);
begin
    if ListView1.Selected is TListItem then
    begin
    with ADOQuery1 do
    begin
         SQL.Clear;
         SQL.Add('select * from MainIndex where ComName = '''+ListView1.Selected.Caption+'''');
         Open;
         First;
    end;

    with ADOQuery2 do
      begin
         SQL.Clear;
         SQL.Add('select * from ZCFZB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pzcfzb').AsInteger));
         Open;
         if not eof then
           begin
           delete;
           end;
         Close;
      end;

    with ADOQuery2a do
      begin
         SQL.Clear;
         SQL.Add('select * from ZCFZBA Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pzcfzba').AsInteger));
         Open;
         if not eof then
           begin
           delete;
           end;
         Close;
      end;

    with ADOQuery3 do
      begin
         SQL.Clear;
         SQL.Add('select * from LRFPB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Plrfpb').AsInteger));
         Open;
         if not eof then
           begin
           delete;
           end;
         Close;
      end;

    with ADOQuery4 do
      begin
         SQL.Clear;
         SQL.Add('select * from XJLLB Where IndexNo = '+IntToStr(ADOQuery1.FieldByName('Pxjllb').AsInteger));
         Open;
         if not eof then
           begin
           delete;
           end;
         Close;
      end;

    With ADOQuery1 do
      begin
        Delete;
        ListView1.Selected.Delete;
        Close;
      end;

    end;
end;


procedure TMainForm.BitBtnZCOKClick(Sender: TObject);
begin
    FmHS1.ShowModal;
    FmHS2.ShowModal;
    PageControl1.ActivePage := TabSheet3;
end;

procedure TMainForm.BitBtnZCESCClick(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery2.Close;
    ADOQuery3.Close;
    ADOQuery4.Close;
    ToolButtonSave.Enabled := False;
    FileSaveItem.Enabled := False;
    ToolButtonPrint.Enabled := False;
    FilePrintItem.Enabled := False;
    ToolButtonPrintView.Enabled := False;
    FilePrintViewItem.Enabled := False;
    FileOutputItem.Enabled := False;
    ToolbuttonNew.Enabled := True;
    FileNewItem.Enabled := True;
    ToolButtonOpen.Enabled := True;
    FileOpenItem.Enabled := True;
    ToolButtonDelet.Enabled := True;
    FileDeletItem.Enabled := True;
    Panel1.Visible := True;
    Panel2.Visible := False;
end;

procedure TMainForm.BitBtnZCCloseClick(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery2.Close;
    ADOQuery3.Close;
    ADOQuery4.Close;
    ToolButtonSave.Enabled := False;
    FileSaveItem.Enabled := False;
    ToolButtonPrint.Enabled := False;
    FilePrintItem.Enabled := False;
    ToolButtonPrintView.Enabled := False;
    FilePrintViewItem.Enabled := False;
    FileOutputItem.Enabled := False;
    ToolbuttonNew.Enabled := True;
    FileNewItem.Enabled := True;
    ToolButtonOpen.Enabled := True;
    FileOpenItem.Enabled := True;
    ToolButtonDelet.Enabled := True;
    FileDeletItem.Enabled := True;
    Panel1.Visible := True;
    Panel2.Visible := False;
end;

procedure TMainForm.BitBtnLROKClick(Sender: TObject);
begin
    PageControl1.ActivePage := TabSheet1;
    Edit105.Text := Edit136.Text;
//    Edit105.SetFocus;
end;

procedure TMainForm.BitBtnLRESCClick(Sender: TObject);
begin
    PageControl1.ActivePage := TabSheet1;
end;

procedure TMainForm.BitBtnXJSaveClick(Sender: TObject);
begin
//    Panel1.Visible := True;
//    Panel2.Visible := False;
    PageControl1.ActivePage := TabSheet1;
end;

procedure TMainForm.BitBtnXJCloseClick(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery2.Close;
    ADOQuery3.Close;
    ADOQuery4.Close;
    ToolButtonSave.Enabled := False;
    FileSaveItem.Enabled := False;
    ToolButtonPrint.Enabled := False;
    FilePrintItem.Enabled := False;
    ToolButtonPrintView.Enabled := False;
    FilePrintViewItem.Enabled := False;
    FileOutputItem.Enabled := False;
    ToolbuttonNew.Enabled := True;
    FileNewItem.Enabled := True;
    ToolButtonOpen.Enabled := True;
    FileOpenItem.Enabled := True;
    ToolButtonDelet.Enabled := True;
    FileDeletItem.Enabled := True;
    Panel1.Visible := True;
    Panel2.Visible := False;
    PageControl1.ActivePage := TabSheet1;
end;

procedure TMainForm.FormResize(Sender: TObject);
begin
      ScrollBox3.Width := (TabSheet3.ClientWidth - 5) div 2;
      ScrollBox4.Width := (TabSheet3.ClientWidth - 5) div 2;
end;

procedure TMainForm.SoftRegExecute(Sender: TObject);
begin
    FmSoftReg.ShowModal;
end;

procedure TMainForm.InTableOne();
begin
    With ADOQuery2 do
    Begin
Edit2.Text := FieldByName('LDZC_S').AsString;
Edit3.Text := FieldByName('LDZC_E').AsString;
Edit4.Text := FieldByName('LD_HBZJ_S').AsString;
Edit5.Text := FieldByName('LD_HBZJ_E').AsString;
Edit6.Text := FieldByName('LD_DQTZ_S').AsString;
Edit7.Text := FieldByName('LD_DQTZ_E').AsString;
Edit8.Text := FieldByName('LD_YSPJ_S').AsString;
Edit9.Text := FieldByName('LD_YSPJ_E').AsString;
Edit10.Text := FieldByName('LD_YSGLLX_S').AsString;
Edit11.Text := FieldByName('LD_YSGLLX_E').AsString;
Edit12.Text := FieldByName('LD_YSZK_S').AsString;
Edit13.Text := FieldByName('LD_YSZK_E').AsString;
Edit14.Text := FieldByName('LD_HZZB_S').AsString;
Edit15.Text := FieldByName('LD_HZZB_E').AsString;
Edit16.Text := FieldByName('LD_YSZKJZ_S').AsString;
Edit17.Text := FieldByName('LD_YSZKJZ_E').AsString;
Edit18.Text := FieldByName('LD_YFZK_S').AsString;
Edit19.Text := FieldByName('LD_YFZK_E').AsString;
Edit22.Text := FieldByName('LD_QTYSK_S').AsString;
Edit23.Text := FieldByName('LD_QTYSK_E').AsString;
Edit24.Text := FieldByName('LD_YSCKTSK_S').AsString;
Edit25.Text := FieldByName('LD_YSCKTSK_E').AsString;
Edit26.Text := FieldByName('LD_YSCKBTK_S').AsString;
Edit27.Text := FieldByName('LD_YSCKBTK_E').AsString;
Edit28.Text := FieldByName('LD_CH_S').AsString;
Edit29.Text := FieldByName('LD_CH_E').AsString;
Edit30.Text := FieldByName('LD_DTFY_S').AsString;
Edit31.Text := FieldByName('LD_DTFY_E').AsString;
Edit32.Text := FieldByName('LD_QTLDZC_S').AsString;
Edit33.Text := FieldByName('LD_QTLDZC_E').AsString;
Edit34.Text := FieldByName('CQTZ_S').AsString;
Edit35.Text := FieldByName('CQTZ_E').AsString;
Edit36.Text := FieldByName('CT_CQGQTZ_S').AsString;
Edit37.Text := FieldByName('CT_CQGQTZ_E').AsString;
Edit38.Text := FieldByName('CT_CQZQTZ_S').AsString;
Edit39.Text := FieldByName('CT_CQZQTZ_E').AsString;
Edit40.Text := FieldByName('GDZC_S').AsString;
Edit41.Text := FieldByName('GDZC_E').AsString;
Edit42.Text := FieldByName('GD_GDZCYZ_S').AsString;
Edit43.Text := FieldByName('GD_GDZCYZ_E').AsString;
Edit44.Text := FieldByName('GD_LJZJ_S').AsString;
Edit45.Text := FieldByName('GD_LJZJ_E').AsString;
Edit46.Text := FieldByName('GD_GDZCJZ_S').AsString;
Edit47.Text := FieldByName('GD_GDZCJZ_E').AsString;
Edit48.Text := FieldByName('GD_ZJGC_S').AsString;
Edit49.Text := FieldByName('GD_ZJGC_E').AsString;
Edit50.Text := FieldByName('WXJQTZC_S').AsString;
Edit51.Text := FieldByName('WXJQTZC_E').AsString;
Edit52.Text := FieldByName('WX_WXZC_S').AsString;
Edit53.Text := FieldByName('WX_WXZC_E').AsString;
Edit54.Text := FieldByName('WX_CQDTFY_S').AsString;
Edit55.Text := FieldByName('WX_CQDTFY_E').AsString;
Edit56.Text := FieldByName('ZICAIZHONGJI_S').AsString;
Edit57.Text := FieldByName('ZICAIZHONGJI_E').AsString;
    End
end;

procedure TMainForm.InTableOneA();
begin
    With ADOQuery2a do
    Begin

Edit58.Text := FieldByName('LDFZ_S').AsString;
Edit59.Text := FieldByName('LDFZ_E').AsString;
Edit60.Text := FieldByName('FZ_DQJK_S').AsString;
Edit61.Text := FieldByName('FZ_DQJK_E').AsString;
Edit62.Text := FieldByName('FZ_YFPJ_S').AsString;
Edit63.Text := FieldByName('FZ_YFPJ_E').AsString;
Edit64.Text := FieldByName('FZ_YFZK_S').AsString;
Edit65.Text := FieldByName('FZ_YFZK_E').AsString;
Edit66.Text := FieldByName('FZ_YSZK_S').AsString;
Edit67.Text := FieldByName('FZ_YSZK_E').AsString;
Edit68.Text := FieldByName('FZ_QTYFK_S').AsString;
Edit69.Text := FieldByName('FZ_QTYFK_E').AsString;
Edit70.Text := FieldByName('FZ_YFGZ_S').AsString;
Edit71.Text := FieldByName('FZ_YFGZ_E').AsString;
Edit72.Text := FieldByName('FZ_YFFLF_S').AsString;
Edit73.Text := FieldByName('FZ_YFFLF_E').AsString;
Edit74.Text := FieldByName('FZ_YJSJ_S').AsString;
12345

⌨️ 快捷键说明

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