main.pas

delphi的一个开发实例

end;

procedure Tfrm_Main.SpeedButton26Click(Sender: TObject);
begin
    frm_Storage_Check_Search:=Tfrm_Storage_Check_Search.Create(self);
    frm_Storage_Check_Search.ShowModal;
    frm_Storage_Check_Search.Free;
end;



procedure Tfrm_Main.SpeedButton27Click(Sender: TObject);
begin
    frm_price_attemper:=Tfrm_price_attemper.Create(self);
    frm_price_attemper.ShowModal;
    frm_price_attemper.Free;
end;

procedure Tfrm_Main.SpeedButton20Click(Sender: TObject);
begin
    frm_Uprice_attemper:=Tfrm_Uprice_attemper.Create(self);
    frm_Uprice_attemper.ShowModal;
    frm_Uprice_attemper.Free;
end;

procedure Tfrm_Main.SpeedButton30Click(Sender: TObject);
begin
    frm_Storage_police:=Tfrm_Storage_police.Create(self);
    frm_Storage_police.ShowModal;
    frm_Storage_police.Free;
end;

procedure Tfrm_Main.FormShow(Sender: TObject);
begin
    P_Title.Top:=0;
    Lab_Title.Caption:='【采购信息管理】';
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    Cmd_stock.Click;
    frm_Main.AutoScroll:=True;
    frm_Main.AutoSize:=True;
    timer1.Enabled:=True;
    AnimateWindow (Handle, 400, JC_HorPositive);  //显示的动画显示
end;

procedure Tfrm_Main.FormCreate(Sender: TObject);
var
    tmp : integer;
    FWidth:integer;
    Path, Name: string;
    RegF: TRegistry;
begin
    Path:=Application.ExeName; //程序的路径
    Name:=Application.Title; //程序的名字
    RegF:=TRegistry.Create;
    RegF.RootKey:=HKEY_LOCAL_MACHINE;
    try
        if RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then
        if not RegF.ValueExists(Name) then
        begin
            RegF.WriteString(Name,Path);
            RegF.CloseKey;
        end;
    finally
        RegF.Free
    end;
    
    frm_Main.AutoScroll:=True;
    tmp := 0;
    //屏蔽 Alt-Tab
    SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);
    //屏蔽 Ctrl-Alt-Del
    SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0);
    Scaled:=TRUE;
    if(Screen.width<> 1024)then
    begin
        FWidth:=Width;
        Height:=longint(Height)*longint(Screen.Height)DIV 768;
        Width:=longint(Width)*longint(Screen.Width)DIV 1024;//窗口大小调整
        ScaleBy(Screen.Width,1024); //控件大小调整
        Font.Size:=(Width DIV FWidth)*Font.Size;//字体大小调整
    end;


    TeeEraseBack:=False;
    PieSeries6.FillSampleValues(5);
    PieSeries9.FillSampleValues(5);
    PieSeries7.FillSampleValues(5);
    Series1.FillSampleValues(5);
    PieSeries8.CheckDataSource;
    FastLineSeries1.FillSampleValues(20);
    FastLineSeries2.FillSampleValues(20);
    DeltaZoom:=5;
    //SysInfo := StringOfChar(' ', 20) + '【连锁销售管理系统】  版本： V0.0.1  Beta   软件制作: 盖达尔 (C) 2003-2005' + StringOfChar(' ', 1);
    SysInfo := StringOfChar(' ', 2) + '【连锁销售管理系统】版本：V0.0.1 Beta   软件制作: 盖达尔 (C) 2003-2005' + StringOfChar(' ', 2);
    StatusBar1.Panels[0].Text:='当前操作员：'+Handle_Man;
end;

procedure Tfrm_Main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (shift = [ssAlt]) and (key = vk_F4) then
    begin
        shift := [];
        key := 0;
    end;
end;

procedure Tfrm_Main.ListView1Click(Sender: TObject);
begin
    if listview1.Selected <> nil then
    begin
        case listview1.ItemIndex of
        0:
        begin
            Public_Do:='';
            Public_Do:='Goods_Requirment_Str';
            Public_Do_Result:='';
            frm_Main.Panel_Title.Caption:='【连锁管理系统】->【采购信息管理】->【采购合同】';
            frm_Goods_Requirement:=Tfrm_Goods_Requirement.Create(self);
            frm_Goods_Requirement.ShowModal;
            frm_Goods_Requirement.Free;
            {frm_Goods_Requirement:=Tfrm_Goods_Requirement.Create(self,p1);
            frm_Goods_Requirement.Show;  }
        end;
        1: //采购合同
        begin
            Public_Do:='';
            Public_Do:='Stock_0002';
            Public_Do_Result:='';
            frm_Main.Panel_Title.Caption:='【连锁管理系统】->【采购信息管理】->【采购合同】';
            frm_Stock_Contract:=Tfrm_Stock_Contract.Create(self);
            frm_Stock_Contract.ShowModal;
            frm_Stock_Contract.Free;
        end;
        2: //采购入库
        begin
            Public_Do:='';
            Public_Do:='Stock_0003';
            Public_Do_Result:='';
            frm_Stock_Enter:=Tfrm_Stock_Enter.Create(self);
            frm_Stock_Enter.ShowModal;
            frm_Stock_Enter.Free;
        end;
        3: //库存状况
        begin
            Public_Do:='';
            Public_Do:='Stock_States';
            Public_Do_Result:='';
            frm_Stock_State:=Tfrm_Stock_State.Create(self);
            frm_Stock_State.ShowModal;
            frm_Stock_State.Free;
        end;
        4: //采购退货管理
        begin
            Public_Do:='';
            Public_Do:='Stock_0004';
            Public_Do_Result:='';
            frm_Stock_Fad:=Tfrm_Stock_Fad.Create(self);
            frm_Stock_Fad.ShowModal;
            frm_Stock_Fad.Free;
        end;
        5: //采购付款管理
        begin
            Public_Do:='';
            Public_Do:='Stock_0005';
            Public_Do_Result:='';
            frm_Stock_Pay:=Tfrm_Stock_Pay.Create(self);
            frm_Stock_Pay.ShowModal;
            frm_Stock_Pay.Free;
        end;
        6:
        begin
            Public_Do:='';
            Public_Do:='Stock_0006';
            Public_Do_Result:='';
            frm_Goods_demand:=Tfrm_Goods_demand.Create(self);
            frm_Goods_demand.ShowModal;
            frm_Goods_demand.Free;

        end;
        7:  //质量验收
        begin
            Public_Do:='';
            Public_Do:='Stock_0007';
            Public_Do_Result:='';
            frm_Quality_Check:=Tfrm_Quality_Check.Create(self);
            frm_Quality_Check.ShowModal;
            frm_Quality_Check.Free;
        end;
        8:   //来货登记
        begin
            Public_Do:='';
            Public_Do:='Stock_0008';
            Public_Do_Result:='';
            frm_Goods_Write:=Tfrm_Goods_Write.Create(self);
            frm_Goods_Write.ShowModal;
            frm_Goods_Write.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.Cmd_SaleClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【销售信息管理】';
    Lab_Title.Caption:='【销售信息管理】';
    Image_Title.Top:=Cmd_Sale.Top;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;


    ListView1.Visible:=False;
    ListView2.Visible:=True;
    ListView3.Visible:=False;
    ListView4.Visible:=False;

end;

procedure Tfrm_Main.ListView2Click(Sender: TObject);
begin
    if listview2.Selected <> nil then
    begin
        case listview2.ItemIndex of
        0:
        begin
            frm_Sale_Contract:=Tfrm_Sale_Contract.Create(self);
            frm_Sale_Contract.ShowModal;
            frm_Sale_Contract.Free;
        end;
        1:
        begin
            frm_Sale_Out:=Tfrm_Sale_Out.Create(self);
            frm_Sale_Out.ShowModal;
            frm_Sale_Out.Free;
        end;
        3:
        begin
            frm_Stock_State:=Tfrm_Stock_State.Create(self);
            frm_Stock_State.ShowModal;
            frm_Stock_State.free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.SpeedButton28Click(Sender: TObject);
begin
    frm_Total_Search:=Tfrm_Total_Search.Create(self);
    frm_Total_Search.Caption:='【销售统计查询】　';
    frm_Total_Search.RadioButton1.Checked:=True;
    frm_Total_Search.RadioButton2.Checked:=False;
    frm_Total_Search.ShowModal;
    frm_Total_Search.Free;
end;

procedure Tfrm_Main.SpeedButton29Click(Sender: TObject);
begin
    frm_Total_Search:=Tfrm_Total_Search.Create(self);
    frm_Total_Search.Caption:='【销售退货统计查询】　';
    frm_Total_Search.RadioButton2.Checked:=True;
    frm_Total_Search.RadioButton1.Checked:=False;
    frm_Total_Search.ShowModal;
    frm_Total_Search.Free;
end;

procedure Tfrm_Main.SpeedButton33Click(Sender: TObject);
begin
    frm_Sale_Report:=Tfrm_Sale_Report.Create(self);
    frm_Sale_Report.Caption:='【销售日报】';
    frm_Sale_Report.TabSheet1.TabVisible:=True;
    frm_Sale_Report.TabSheet2.TabVisible:=False;
    frm_Sale_Report.TabSheet3.TabVisible:=False;
    frm_Sale_Report.TabSheet4.TabVisible:=False;
    frm_Sale_Report.ShowModal;
    frm_Sale_Report.Free;
end;

procedure Tfrm_Main.SpeedButton34Click(Sender: TObject);
begin
    frm_Sale_Report:=Tfrm_Sale_Report.Create(self);
    frm_Sale_Report.Caption:='【销售月报】';
    frm_Sale_Report.TabSheet2.TabVisible:=True;
    frm_Sale_Report.TabSheet1.TabVisible:=False;
    frm_Sale_Report.TabSheet3.TabVisible:=False;
    frm_Sale_Report.TabSheet4.TabVisible:=False;
    frm_Sale_Report.ShowModal;
    frm_Sale_Report.Free;
end;

procedure Tfrm_Main.SpeedButton35Click(Sender: TObject);
begin
    frm_Sale_Report:=Tfrm_Sale_Report.Create(self);
    frm_Sale_Report.Caption:='【销售年报】';
    frm_Sale_Report.TabSheet3.TabVisible:=True;
    frm_Sale_Report.TabSheet1.TabVisible:=False;
    frm_Sale_Report.TabSheet2.TabVisible:=False;
    frm_Sale_Report.TabSheet4.TabVisible:=False;
    frm_Sale_Report.ShowModal;
    frm_Sale_Report.Free;
end;

procedure Tfrm_Main.SpeedButton36Click(Sender: TObject);
begin
    frm_Sale_Report:=Tfrm_Sale_Report.Create(self);
    frm_Sale_Report.Caption:='【销售报表(任意时间段)】';
    frm_Sale_Report.TabSheet4.TabVisible:=True;
    frm_Sale_Report.TabSheet3.TabVisible:=False;
    frm_Sale_Report.TabSheet2.TabVisible:=False;
    frm_Sale_Report.TabSheet1.TabVisible:=False;
    frm_Sale_Report.ShowModal;
    frm_Sale_Report.Free;
end;

procedure Tfrm_Main.ListView3Click(Sender: TObject);
begin
    if listview3.Selected <> nil then
    begin
        case listview3.ItemIndex of
        0:  //非运营性出库
        begin
            Public_Do:='';
            Public_Do:='Storage_Umanage_Fad';
            Public_Do_Result:='';
            frm_Umanage_Fad:=Tfrm_Umanage_Fad.Create(self);
            frm_Umanage_Fad.ShowModal;
            frm_Umanage_Fad.Free;
        end;
        1:
        begin
            frm_Umanage_Enter:=Tfrm_Umanage_Enter.Create(self);
             frm_Umanage_Enter.ShowModal;
             frm_Umanage_Enter.Free;
        end;
        2: //商品报损
        begin
            Public_Do:='';
            Public_Do:='damage_0001';
            frm_Storage_damage:=Tfrm_Storage_damage.Create(self);
            frm_Storage_damage.ShowModal;
            frm_Storage_damage.Free;
        end;
        3:
        begin
            frm_Storage_Extravasate:=Tfrm_Storage_Extravasate.Create(self);
            frm_Storage_Extravasate.ShowModal;
            frm_Storage_Extravasate.Free;
        end;
        4:  //商品调价
        begin
            Public_Do:='';
            Public_Do:='price_Chang_Str';
            public_Do_Result:='';
            frm_price_Chang:=Tfrm_price_Chang.Create(self);
            frm_price_Chang.ShowModal;
            frm_price_Chang.Free;
        end;
        5:
        begin
            frm_Storage_Check:=Tfrm_Storage_Check.Create(self);
            frm_Storage_Check.ShowModal;
            frm_Storage_Check.Free;
        end;
        6:  //同假调拨
        begin
            func.Public_Do:='';
            func.Public_Do_Result:='';
            func.Public_Do:='Storage_price_attemper';
            frm_price_attemper:=Tfrm_price_attemper.Create(self);
            frm_price_attemper.ShowModal;
            frm_price_attemper.Free;
        end;
        7:
        begin
            frm_Uprice_attemper:=Tfrm_Uprice_attemper.Create(self);
            frm_Uprice_attemper.ShowModal;