📄 unit1.pas

📁 本程序是在实施用友ERP时根据客户要求专门为用友U8开发的生产标准生产成本的二次开发程序。
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
  ADOQueryCKProuting.Close;
  RzPanel5.Visible := false;
  RzPanel3.Visible := true;
End;

Procedure TForm1.MenCheckRCostClick(Sender: TObject);
Begin
  ADOQueryCKProuting.Prepared := false;
  ADOQueryCKProuting.Close;
  ADOQueryCostData.Prepared := false;
  ADOQueryCostData.Close;
  FChanged := false;
  ADOQuery5.Prepared := false;
  ADOQuery5.Close;
  //RzComboBox1.Visible := false;
  RzToolButton6.Visible := false;
  //RzEdit1.Visible := false;
  RzPanel4.Visible := false;
  RzPanel5.Visible := false;
  ADOQueryCostData.SQL.Clear;
  ADOQueryCostData.SQL.Add('SELECT cInvCode, cInvAddCode, cInvName, cInvStd, cComUnitName, iInvRCost1, iInvSprice1,iInvNCost1, iCost ');
  ADOQueryCostData.SQL.Add(' FROM ProductID ');
  ADOQueryCostData.SQL.Add(' WHERE (iCost = 1) AND (iInvRCost1 = 0)');
  ADOQueryCostData.Prepared := true;
  ADOQueryCostData.Prepared := true;
  ADOQueryCostData.Open;
  RzSizePanel2.Visible := false;
  RzSizePanel1.Visible := false;
  RzPanel3.Visible := false;
  RzPanel5.Visible := false;
  RzPanel4.Visible := true;
  RzPanel4.Align := alClient;
End;

Procedure TForm1.MenCheckNCostClick(Sender: TObject);
Begin
  ADOQueryCKProuting.Prepared := false;
  ADOQueryCKProuting.Close;
  ADOQueryCostData.Prepared := false;
  ADOQueryCostData.Close;
  FChanged := false;
  ADOQuery5.Prepared := false;
  ADOQuery5.Close;
  //RzComboBox1.Visible := false;
  RzToolButton6.Visible := false;
  //RzEdit1.Visible := false;
  RzPanel4.Visible := false;
  RzPanel5.Visible := false;
  ADOQueryCostData.SQL.Clear;
  ADOQueryCostData.SQL.Add('SELECT cInvCode, cInvAddCode, cInvName, cInvStd, cComUnitName, iInvRCost1, iInvSprice1,iInvNCost1, iCost ');
  ADOQueryCostData.SQL.Add(' FROM ProductID ');
  ADOQueryCostData.SQL.Add(' WHERE (iCost = 1) AND (iInvNCost1 = 0)');
  ADOQueryCostData.Prepared := true;
  ADOQueryCostData.Open;
  RzSizePanel2.Visible := false;
  RzSizePanel1.Visible := false;
  RzPanel3.Visible := false;
  RzPanel5.Visible := false;
  RzPanel4.Visible := true;
  RzPanel4.Align := alClient;
End;

Procedure TForm1.MenCheckSpriceClick(Sender: TObject);
Begin
  ADOQueryCKProuting.Prepared := false;
  ADOQueryCKProuting.Close;
  ADOQueryCostData.Prepared := false;
  ADOQueryCostData.Close;
  FChanged := false;
  ADOQuery5.Prepared := false;
  ADOQuery5.Close;
  //RzComboBox1.Visible := false;
  RzToolButton6.Visible := false;
  //RzEdit1.Visible := false;
  RzPanel4.Visible := false;
  RzPanel5.Visible := false;
  ADOQueryCostData.SQL.Clear;
  ADOQueryCostData.SQL.Add('SELECT cInvCode, cInvAddCode, cInvName, cInvStd, cComUnitName, iInvRCost1, iInvSprice1,iInvNCost1, iCost ');
  ADOQueryCostData.SQL.Add(' FROM ProductID ');
  ADOQueryCostData.SQL.Add(' WHERE (iCost = 1) AND (iInvSprice1 = 0)');
  ADOQueryCostData.Prepared := true;
  ADOQueryCostData.Prepared := true;
  ADOQueryCostData.Open;
  RzSizePanel2.Visible := false;
  RzSizePanel1.Visible := false;
  RzPanel3.Visible := false;
  RzPanel5.Visible := false;
  RzPanel4.Visible := true;
  RzPanel4.Align := alClient;
End;

Procedure TForm1.DBGridEh5Exit(Sender: TObject);
Begin
  ADOQueryLooksomething.Prepared := false;
  ADOQueryLooksomething.Close;
  DBGridEh5.Visible := false;
  TabSheet4.TabVisible := false;
  RzPageControl1.ActivePageIndex := 0;
  DBGridEh2.SetFocus;
End;

Procedure TForm1.RzToolButton3Click(Sender: TObject);
Begin
  If WorkHours1 = true Then
  Begin
    RzToolButton3.Caption := ' 设备费用2';
    WorkHours1 := false;
    dbgrideh1.Columns[6].Visible := false;
    dbgrideh1.Columns[8].Visible := false;

    dbgrideh2.Columns[6].Visible := false;
    dbgrideh2.Columns[8].Visible := false;

    dbgrideh3.Columns[6].Visible := false;
    dbgrideh3.Columns[8].Visible := false;

    dbgrideh4.Columns[5].Visible := false;
    dbgrideh4.Columns[7].Visible := false;
    //
    dbgrideh1.Columns[7].Visible := true;
    dbgrideh1.Columns[9].Visible := true;

    dbgrideh2.Columns[7].Visible := true;
    dbgrideh2.Columns[9].Visible := true;

    dbgrideh3.Columns[7].Visible := true;
    dbgrideh3.Columns[9].Visible := true;

    dbgrideh4.Columns[6].Visible := true;
    dbgrideh4.Columns[8].Visible := true;
  End
  Else
  Begin
    RzToolButton3.Caption := ' 设备费用1';
    WorkHours1 := true;
    dbgrideh1.Columns[6].Visible := true;
    dbgrideh1.Columns[8].Visible := true;

    dbgrideh2.Columns[6].Visible := true;
    dbgrideh2.Columns[8].Visible := true;

    dbgrideh3.Columns[6].Visible := true;
    dbgrideh3.Columns[8].Visible := true;

    dbgrideh4.Columns[5].Visible := true;
    dbgrideh4.Columns[7].Visible := true;
    //
    dbgrideh1.Columns[7].Visible := false;
    dbgrideh1.Columns[9].Visible := false;

    dbgrideh2.Columns[7].Visible := false;
    dbgrideh2.Columns[9].Visible := false;

    dbgrideh3.Columns[7].Visible := false;
    dbgrideh3.Columns[9].Visible := false;

    dbgrideh4.Columns[6].Visible := false;
    dbgrideh4.Columns[8].Visible := false;
  End;
  DisplaySumData;
End;

Procedure TForm1.RzPageControl1Change(Sender: TObject);
Begin
  DisplaySumData;
End;

Procedure TForm1.RzToolButton11Click(Sender: TObject);
Var
  fss, pss, ss: String;
Begin
  RzSaveDialog1.FileName := '标准生产成本.xls';
  If RzSaveDialog1.Execute Then
    fss := RzSaveDialog1.FileName;
  If strlen(PChar(fss)) > 0 Then
  Begin
    Table_ProductID.Filtered := false;
    DataSetExportExcel.ExportExcelFile(fss, True, RzDBGrid4);
    Table_ProductID.Filtered := true;
    ss := '导出完毕!' + #13#10#13#10 + '数据存放在【' + fss + '】文件中！';
    showmessage(ss);
  End;
End;

Procedure TForm1.TransToServer;
Var
  ii, j, k, rr: integer;
Begin
  ADOQuerySQLCreateTable.Prepared := true;
  ADOQuerySQLCreateTable.ExecSQL;
  ADOQuerySQLCreateTable.Prepared := false;
  ADOQuerySQLCreateTable.Close;

  TbAlt_ProductID.Open;
  Table_ProductID.Open;

  ii := Table_ProductID.FieldCount;
  Table_ProductID.First;
  RzProgressBar1.Visible := true;
  RzProgressBar1.TotalParts := Table_ProductID.RecordCount;
  While Not Table_ProductID.Eof Do
  Begin
    RzProgressBar1.PartsComplete := Table_ProductID.RecNo;
    TbAlt_ProductID.Append;
    TbAlt_ProductID.Edit;
    For j := 0 To ii - 1 Do
    Begin
      TbAlt_ProductID.Fields[j] := Table_ProductID.Fields[j];
    End;
    TbAlt_ProductID.Post;
    Table_ProductID.Next;
  End;
  TbAlt_ProductID.Close;
  Table_ProductID.Close;
  ////
  TbAlt_Prouting.Open;
  Table_Prouting.Open;

  ii := Table_Prouting.FieldCount;
  Table_Prouting.First;
  RzProgressBar1.TotalParts := Table_Prouting.RecordCount;
  While Not Table_Prouting.Eof Do
  Begin
    RzProgressBar1.PartsComplete := Table_Prouting.RecNo;
    TbAlt_Prouting.Append;
    TbAlt_Prouting.Edit;
    For j := 0 To ii - 1 Do
    Begin
      TbAlt_Prouting.Fields[j] := Table_Prouting.Fields[j];
    End;
    TbAlt_Prouting.Post;
    Table_Prouting.Next;
  End;
  TbAlt_Prouting.Close;
  Table_Prouting.Close;
  RzProgressBar1.Visible := false;
End;

Procedure TForm1.GetFromServer;
Var
  ii, j, k, rr: integer;
Begin
  ADOQuery4.Close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add('delete from ProductID');
  ADOQuery4.ExecSQL;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Add('delete from Prouting');
  ADOQuery4.ExecSQL;
  ADOQuery4.Prepared := false;
  ADOQuery4.Close;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from Alt_ProductID');
  ADOQuery1.Open;

  //TbAlt_ProductID.Open;
  Table_ProductID.Open;

  ii := ADOQuery1.FieldCount;
  ADOQuery1.First;
  RzProgressBar1.Visible := true;
  RzProgressBar1.TotalParts := ADOQuery1.RecordCount;
  While Not ADOQuery1.Eof Do
  Begin
    RzProgressBar1.PartsComplete := ADOQuery1.RecNo;
    Table_ProductID.Append;
    Table_ProductID.Edit;
    For j := 0 To ii - 1 Do
    Begin
      Table_ProductID.Fields[j] := ADOQuery1.Fields[j];
    End;
    Table_ProductID.Post;
    ADOQuery1.Next;
  End;
  ADOQuery1.Prepared := false;
  ADOQuery1.Close;
  Table_ProductID.Close;
  ////
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from Alt_Prouting');
  ADOQuery1.Open;
  //TbAlt_Prouting.Open;
  Table_Prouting.Open;

  ii := ADOQuery1.FieldCount;
  ADOQuery1.First;
  RzProgressBar1.TotalParts := ADOQuery1.RecordCount;
  While Not ADOQuery1.Eof Do
  Begin
    RzProgressBar1.PartsComplete := ADOQuery1.RecNo;
    Table_Prouting.Append;
    Table_Prouting.Edit;
    For j := 0 To ii - 1 Do
    Begin
      Table_Prouting.Fields[j] := ADOQuery1.Fields[j];
    End;
    Table_Prouting.Post;
    ADOQuery1.Next;
  End;
  ADOQuery1.Prepared := false;
  ADOQuery1.Close;
  Table_Prouting.Close;
  RzProgressBar1.Visible := false;
End;

Procedure TForm1.DBGridEh5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  ss: String;
Begin
  If FFilter = true Then
  Begin
    //RzToolButton12.Visible := false;
    ss := ADOQueryLooksomething.FieldByName('Name').AsString;
    TreeFind(RzTreeView1, ss);
    FFilter := false;
  End;
End;

Procedure TForm1.RzToolButton6Click(Sender: TObject);
Begin
  RzGroupBox2.Visible := true;
  RzEdit2.Text := '';
  RzEdit3.Text := '';
  RzEdit4.Text := '';
  RzEdit5.Text := '';
  RzEdit2.SetFocus;
End;

Initialization
  List := TStringList.Create;
Finalization
  list.Free;
End.
上一页 1 2 3 45
💿 文件大小 6270 K
👤 上传用户 lujing200912345
📂 所属分类 SQL Server
🏷️ 相关标签

#ERP #程序 #标准 #二次开发
⌨️ 快捷键说明

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