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

📄 main.pas

📁 通过程序的试算平衡表
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    Edit151: TxpEdit;
    Edit152: TxpEdit;
    Edit153: TxpEdit;
    Edit154: TxpEdit;
    Edit155: TxpEdit;
    Edit156: TxpEdit;
    Edit157: TxpEdit;
    Edit158: TxpEdit;
    Edit159: TxpEdit;
    Edit160: TxpEdit;
    Edit161: TxpEdit;
    Edit162: TxpEdit;
    Edit163: TxpEdit;
    Edit164: TxpEdit;
    Edit165: TxpEdit;
    Edit166: TxpEdit;
    Edit167: TxpEdit;
    Label137: TLabel;
    Label138: TLabel;
    Label139: TLabel;
    Label140: TLabel;
    Label141: TLabel;
    Label142: TLabel;
    Label143: TLabel;
    Label144: TLabel;
    Label145: TLabel;
    Label146: TLabel;
    Label147: TLabel;
    Label148: TLabel;
    Label149: TLabel;
    Label150: TLabel;
    Label151: TLabel;
    Label152: TLabel;
    Label153: TLabel;
    Label154: TLabel;
    Label155: TLabel;
    Label156: TLabel;
    Label157: TLabel;
    Label158: TLabel;
    Label159: TLabel;
    Label160: TLabel;
    Label161: TLabel;
    Label162: TLabel;
    Label163: TLabel;
    Label164: TLabel;
    Label165: TLabel;
    Label166: TLabel;
    Label167: TLabel;
    Label168: TLabel;
    Label169: TLabel;
    Edit168: TxpEdit;
    Edit169: TxpEdit;
    Edit170: TxpEdit;
    Edit171: TxpEdit;
    Edit172: TxpEdit;
    Edit173: TxpEdit;
    Edit174: TxpEdit;
    Edit175: TxpEdit;
    Edit176: TxpEdit;
    Edit177: TxpEdit;
    Edit178: TxpEdit;
    Edit179: TxpEdit;
    Edit180: TxpEdit;
    Edit181: TxpEdit;
    Edit182: TxpEdit;
    Edit183: TxpEdit;
    Edit184: TxpEdit;
    Edit185: TxpEdit;
    Edit186: TxpEdit;
    Edit187: TxpEdit;
    Edit188: TxpEdit;
    Edit189: TxpEdit;
    Edit190: TxpEdit;
    Edit191: TxpEdit;
    Edit192: TxpEdit;
    Edit193: TxpEdit;
    Edit194: TxpEdit;
    Edit195: TxpEdit;
    Edit196: TxpEdit;
    Label170: TLabel;
    Label171: TLabel;
    Label172: TLabel;
    Label173: TLabel;
    Label174: TLabel;
    SoftReg: TAction;
    ADOQuery2a: TADOQuery;
    CheckBox19: TCheckBox;
    Print: TAction;
    PrintPreView: TAction;
    DosMove1: TDosMove;
    Label7: TLabel;
//    procedure FileNew1Execute(Sender: TObject);
    procedure HelpAbout1Execute(Sender: TObject);
    procedure FileExitExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SetNewExecute(Sender: TObject);
    procedure SetOpenExecute(Sender: TObject);
    procedure SetDelExecute(Sender: TObject);
    procedure BitBtnZCOKClick(Sender: TObject);
    procedure BitBtnZCESCClick(Sender: TObject);
    procedure BitBtnZCCloseClick(Sender: TObject);
    procedure BitBtnLROKClick(Sender: TObject);
    procedure BitBtnLRESCClick(Sender: TObject);
    procedure BitBtnXJSaveClick(Sender: TObject);
    procedure BitBtnXJCloseClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure SoftRegExecute(Sender: TObject);
    procedure FileSaveExecute(Sender: TObject);
    procedure Edit105Click(Sender: TObject);

    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure CheckBox19Click(Sender: TObject);
    procedure PrintPreViewExecute(Sender: TObject);
    procedure Edit20Exit(Sender: TObject);
    procedure Edit21Exit(Sender: TObject);
    procedure Edit108Exit(Sender: TObject);
    procedure Edit111Exit(Sender: TObject);
    procedure Edit112Exit(Sender: TObject);
    procedure Edit113Exit(Sender: TObject);
    procedure Edit118Exit(Sender: TObject);
    procedure Edit119Exit(Sender: TObject);
    procedure Edit120Exit(Sender: TObject);
    procedure Edit121Exit(Sender: TObject);
    procedure Edit123Exit(Sender: TObject);
    procedure Edit125Enter(Sender: TObject);
    procedure Edit125Exit(Sender: TObject);
    procedure Edit126Exit(Sender: TObject);
    procedure Edit127Exit(Sender: TObject);
    procedure Edit129Exit(Sender: TObject);
    procedure Edit130Exit(Sender: TObject);
    procedure Edit131Exit(Sender: TObject);
    procedure Edit133Exit(Sender: TObject);
    procedure Edit134Exit(Sender: TObject);
    procedure Edit135Exit(Sender: TObject);
    procedure Edit115Exit(Sender: TObject);
    procedure Edit114Exit(Sender: TObject);
    procedure Edit136Enter(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
    procedure Edit8Exit(Sender: TObject);
    procedure Edit10Exit(Sender: TObject);
    procedure Edit12Exit(Sender: TObject);
    procedure Edit14Exit(Sender: TObject);
    procedure Edit18Exit(Sender: TObject);
    procedure Edit22Exit(Sender: TObject);
    procedure Edit24Exit(Sender: TObject);
    procedure Edit26Exit(Sender: TObject);
    procedure Edit28Exit(Sender: TObject);
    procedure Edit30Exit(Sender: TObject);
    procedure Edit32Exit(Sender: TObject);
    procedure Edit36Exit(Sender: TObject);
    procedure Edit38Exit(Sender: TObject);
    procedure Edit42Exit(Sender: TObject);
    procedure Edit44Exit(Sender: TObject);
    procedure Edit48Exit(Sender: TObject);
    procedure Edit52Exit(Sender: TObject);
    procedure Edit54Exit(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure Edit9Exit(Sender: TObject);
    procedure Edit11Exit(Sender: TObject);
    procedure Edit13Exit(Sender: TObject);
    procedure Edit15Exit(Sender: TObject);
    procedure Edit19Exit(Sender: TObject);
    procedure Edit23Exit(Sender: TObject);
    procedure Edit25Exit(Sender: TObject);
    procedure Edit27Exit(Sender: TObject);
    procedure Edit29Exit(Sender: TObject);
    procedure Edit31Exit(Sender: TObject);
    procedure Edit33Exit(Sender: TObject);
    procedure Edit37Exit(Sender: TObject);
    procedure Edit39Exit(Sender: TObject);
    procedure Edit43Exit(Sender: TObject);
    procedure Edit45Exit(Sender: TObject);
    procedure Edit49Exit(Sender: TObject);
    procedure Edit53Exit(Sender: TObject);
    procedure Edit55Exit(Sender: TObject);
    procedure Edit60Exit(Sender: TObject);
    procedure Edit62Exit(Sender: TObject);
    procedure Edit64Exit(Sender: TObject);
    procedure Edit66Exit(Sender: TObject);
    procedure Edit68Exit(Sender: TObject);
    procedure Edit70Exit(Sender: TObject);
    procedure Edit72Exit(Sender: TObject);
    procedure Edit74Exit(Sender: TObject);
    procedure Edit76Exit(Sender: TObject);
    procedure Edit78Exit(Sender: TObject);
    procedure Edit80Exit(Sender: TObject);
    procedure Edit82Exit(Sender: TObject);
    procedure Edit86Exit(Sender: TObject);
    procedure Edit88Exit(Sender: TObject);
    procedure Edit90Exit(Sender: TObject);
    procedure Edit98Exit(Sender: TObject);
    procedure Edit100Exit(Sender: TObject);
    procedure Edit102Exit(Sender: TObject);
    procedure Edit104Exit(Sender: TObject);
    procedure Edit61Exit(Sender: TObject);
    procedure Edit63Exit(Sender: TObject);
    procedure Edit65Exit(Sender: TObject);
    procedure Edit67Exit(Sender: TObject);
    procedure Edit69Exit(Sender: TObject);
    procedure Edit71Exit(Sender: TObject);
    procedure Edit73Exit(Sender: TObject);
    procedure Edit75Exit(Sender: TObject);
    procedure Edit77Exit(Sender: TObject);
    procedure Edit79Exit(Sender: TObject);
    procedure Edit81Exit(Sender: TObject);
    procedure Edit83Exit(Sender: TObject);
    procedure Edit87Exit(Sender: TObject);
    procedure Edit89Exit(Sender: TObject);
    procedure Edit91Exit(Sender: TObject);
    procedure Edit99Exit(Sender: TObject);
    procedure Edit101Exit(Sender: TObject);
    procedure Edit103Exit(Sender: TObject);
    procedure Edit105Exit(Sender: TObject);
    procedure Edit93Exit(Sender: TObject);
    procedure Edit92Exit(Sender: TObject);

  private
    { Private declarations }
//    procedure CreateMDIChild(const Name: string);
    xlapp:variant;
    WhellStep: Integer;
    ITableIndex1: Integer;
    ITableIndex2a: Integer;
    ITableIndex2: Integer;
    ITableIndex3: Integer;
    ITableIndex4: Integer;
    procedure InitEdit();
    procedure InTableOne();
    procedure OutTableOne();
    procedure InTableOneA();
    Procedure OutTableOneA();
    procedure InTableTwo();
    Procedure OutTableTwo();
    procedure InTableThree();
    Procedure OutTableThree();
    Procedure PrintTableOne();
    Procedure PrintTableOneA();
    Procedure PrintTableTwo();
    Procedure PrintTableThree();
    Procedure ZCAddA();
    Procedure ZCAddB();
    Procedure FZAddC();
    Procedure FZAddD();
    Procedure LRAdd();
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses about, SoftReg, UAB16, UCD29, UAB25, UHS1, UHS2, UAB2, UAB3, UAB6,
  UAB9, UAB316A, UAB316B, UAB16B, UAB21, UAB20, UAB202324, UCD31, UCD34,
  UCD35, UCD36, UCD39, UCD48G, UCD48L, UCD41, UCD50, UCD51, UCD41A;

{procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
//  create a new MDI child window
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
//  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
  //MDIChild := TMDIChild.Create(Application);
  //MDIChild.ShowModal;
  CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
}
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

procedure TMainForm.FileExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
    ListItem: TListItem;
begin
      WhellStep := 54;
      Height := 600;
      Width := 800;
      PageControl1.ActivePage := TabSheet1;
      Panel1.Visible := True;
      Panel2.Visible := False;
      ScrollBox1.VertScrollBar.Position := 0;
      ScrollBox2.VertScrollBar.Position := 0;
      ScrollBox3.VertScrollBar.Position := 0;
      ScrollBox4.VertScrollBar.Position := 0;
      ScrollBox3.Width := (TabSheet3.ClientWidth - 5) div 2;
      ScrollBox4.Width := (TabSheet3.ClientWidth - 5) div 2;
      //MainForm.WindowState:=wsMaximized;
      ADOQuery1.Connection := ADOConnection1;
      ADOQuery2.Connection := ADOConnection1;
      ADOQuery2a.Connection := ADOConnection1;
      ADOQuery3.Connection := ADOConnection1;
      ADOQuery4.Connection := ADOConnection1;
     ListView1.PopupMenu := PopupMenu1;
     with ADOQuery1 do
     begin
         SQL.Clear;
         SQL.Add('select * from MainIndex');
         Open;
         First;
         ListView1.Items.Clear;
         while not Eof do
         begin
         ListItem := ListView1.Items.Add;
         ListItem.Caption := fieldbyname('ComName').AsString;
         //ListItem.Data := ponode;
         //listItem.SubItems.Add(fieldbyname('category_no').AsString);
         ListItem.ImageIndex := 0;
         Next;
         end;
         Close
     end;
end;

procedure TMainForm.SetNewExecute(Sender: TObject);
begin
    ITableIndex1 := 0;
    ITableIndex2 := 0;
    ITableIndex2a := 0;
    ITableIndex3 := 0;
    ITableIndex4 := 0;
{
    with ADOQuery2 do
    begin
      SQL.Clear;
      SQL.Add('Select * From ZCFZB');
      Open;
      Last;
      Insert;
      FieldByName('LDZC_S').AsString := IntToStr(0);
      Post;

    end;
    InTableOne();
    with ADOQuery3 do
    begin
      SQL.Clear;
      SQL.Add('Select * From LRFPB');
      Open;
      Last;
      Insert;
      FieldByName('ZYYWSL').AsString := IntToStr(0);
      Post;

    end;
    InTableTwo();
    with ADOQuery4 do
    begin
      SQL.Clear;
      SQL.Add('Select * From XJLLB');
      Open;
      Last;
      Insert;
      FieldByName('JYHD_LL_A').AsString := IntToStr(0);
      Post;

    end;
    InTableThree();
12345

⌨️ 快捷键说明

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