unit1.dfm

用友u821出库单的金额计算有时会出错。正数量与正单价相乘结果为负数。所以经常要手工在库中修改。此软件可以自动修改金额。由此软件中可以看出如何连接到用友的数据库。以及如何修改不正确的计算结果。

object Form1: TForm1
  Left = 191
  Top = 106
  Width = 529
  Height = 332
  Caption = #27426#36814#20351#29992#32511#27954#36719#20214
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlue
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 13
    Top = 99
    Width = 128
    Height = 16
    Caption = #35831#36755#20837#36215#27490#26085#26399#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 274
    Top = 93
    Width = 97
    Height = 16
    Caption = '____________'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 192
    Width = 197
    Height = 13
    Caption = #27880#24847#65306#26412#36719#20214#36866#29992#20110#29992#21451'u821'#29256#12290
  end
  object Label4: TLabel
    Left = 55
    Top = 216
    Width = 221
    Height = 13
    Caption = #24212#24403#20570#36807#26399#26411#22788#29702#20043#21518#20877#25191#34892#26412#31243#24207#12290
  end
  object Label5: TLabel
    Left = 56
    Top = 240
    Width = 416
    Height = 13
    Caption = #26412#36719#20214#21487#20197#26356#27491#19981#27491#30830#30340#20986#24211#21333#37329#39069#65288#21253#25324#26448#26009#20986#24211#21333#21450#38144#21806#20986#24211#21333#65289#12290
  end
  object Label6: TLabel
    Left = 56
    Top = 264
    Width = 169
    Height = 16
    Caption = #22312#25191#34892#26412#31243#24207#20043#21069#24212#20808#22791#20221#12290
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 163
    Top = 32
    Width = 177
    Height = 21
    Caption = #26356#27491#20986#24211#21333#25454#37329#39069
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 288
    Top = 264
    Width = 133
    Height = 19
    Caption = #21046#20316#20154#65306#26519#32511#27954
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 456
    Top = 264
    Width = 49
    Height = 14
    Caption = '2002.05'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 384
    Top = 16
    Width = 118
    Height = 13
    Caption = #29256#26435#25152#26377'  '#32763#24405#24517#31350
  end
  object d1: TDateTimePicker
    Left = 157
    Top = 96
    Width = 97
    Height = 21
    Date = 37415.356385069400000000
    Time = 37415.356385069400000000
    TabOrder = 0
  end
  object d2: TDateTimePicker
    Left = 389
    Top = 96
    Width = 97
    Height = 21
    Date = 37415.356400925900000000
    Time = 37415.356400925900000000
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 112
    Top = 152
    Width = 75
    Height = 25
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 328
    Top = 152
    Width = 75
    Height = 25
    TabOrder = 3
    OnClick = BitBtn2Click
    Kind = bkClose
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=UFDATA_888_2006;Data Source=server'
    Parameters = <>
    Left = 56
    Top = 32
  end
end