main.~pas

delphi的一个开发实例

            frm_Uprice_attemper.Free;
        end;
        8:  //预警管理
        begin
            frm_Storage_police:=Tfrm_Storage_police.Create(self);
            frm_Storage_police.ShowModal;
            frm_Storage_police.Free;
        end;

        end;
    end;
end;

procedure Tfrm_Main.ListView4Click(Sender: TObject);
begin
    if listview4.Selected <> nil then
    begin
        case listview4.ItemIndex of
        0:
        begin
            Do_Result:='';
            Do_Result:='0001';//表示选择了‘公司部门’对象
            frm_Part_Set:=Tfrm_Part_Set.Create(self);
            {frm_Thing_Base.TabSh1.TabVisible:=True;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False; }
            frm_Part_Set.ShowModal;
            frm_Part_Set.Free;
        end;
        1:
        begin
            Do_Result:='';
            Do_Result:='0002';//表示选择了‘内部职员’对象
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=True;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        2:
        begin
            Do_Result:='';
            Do_Result:='0003';//表示选择了‘内部职员’对象
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=True;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        3:
        begin
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=True;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        4:
        begin
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=True;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        5:
        begin
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=True;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        6:
        begin
            Do_Result:='';
            Do_Result:='0006';//表示选择了‘仓库资料’对象
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=True;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        7:
        begin
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=True;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        8:
        begin
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=True;
            frm_Thing_Base.TabSh10.TabVisible:=False;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        9:
        begin
            Do_Result:='';
            Do_Result:='0009';//表示选择了‘商品信息’对象
            frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
            frm_Thing_Base.TabSh1.TabVisible:=False;
            frm_Thing_Base.TabSh2.TabVisible:=False;
            frm_Thing_Base.TabSh3.TabVisible:=False;
            frm_Thing_Base.TabSh4.TabVisible:=False;
            frm_Thing_Base.TabSh5.TabVisible:=False;
            frm_Thing_Base.TabSh6.TabVisible:=False;
            frm_Thing_Base.TabSh7.TabVisible:=False;
            frm_Thing_Base.TabSh8.TabVisible:=False;
            frm_Thing_Base.TabSh9.TabVisible:=False;
            frm_Thing_Base.TabSh10.TabVisible:=True;
            frm_Thing_Base.ShowModal;
            frm_Thing_Base.Free;
        end;
        10:
        begin
            frm_Company:=Tfrm_Company.Create(self);
            frm_Company.ShowModal;
            frm_Company.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.Cmd_ClientClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_Client.Top;
    
end;

procedure Tfrm_Main.Cmd_MoneyClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_Money.Top;
end;

procedure Tfrm_Main.Cmd_wholesaleClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_wholesale.Top;
end;

procedure Tfrm_Main.Cmd_decisionClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_decision.Top;
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【系统维护管理】';
    Lab_Title.Caption:='【系统维护管理】';
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=True;

    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=false;
    ListView5.Visible:=True;
end;

procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
    frm_Main.StatusBar1.Panels[1].Text:='系统日期和时间：'+ForMatDateTime('yyyy''-''mm''-''dd',now)+' '+ForMatDateTime('hh'':''mm'':''ss',now);
end;

procedure Tfrm_Main.ListView5Click(Sender: TObject);
begin
    if listview5.Selected <> nil then
    begin
        case listview5.ItemIndex of
        0:
        begin
            frm_Chang_Login:=Tfrm_Chang_Login.Create(self);
            frm_Chang_Login.ShowModal;
            frm_Chang_Login.Free;
        end;
        2:
        begin
            frm_Data_Manage:=Tfrm_Data_Manage.Create(self);
            frm_Data_Manage.ShowModal;
            frm_Data_Manage.Free;
        end;
        3:
        begin
            frm_SystemSet:=Tfrm_SystemSet.Create(self);
            frm_SystemSet.ShowModal;
            frm_SystemSet.Free;
        end;
        4:
        begin
            frm_Begin_Build:=Tfrm_Begin_Build.Create(self);
            frm_Begin_Build.ShowModal;
            frm_Begin_Build.Free;
        end;
        5:
        begin
            frm_Parameter_Set:=Tfrm_Parameter_Set.Create(self);
            frm_Parameter_Set.ShowModal;
            frm_Parameter_Set.Free;
        end;
        6:
        begin
            frm_Examine_Verify:=Tfrm_Examine_Verify.Create(self);
            frm_Examine_Verify.ShowModal;
            frm_Examine_Verify.Free;
        end;
        end;
    end;
end;

procedure Tfrm_Main.Button1Click(Sender: TObject);
begin
  {  x:=0;
    y:=0;
    frm_Main.canvas.pen.width:=1;
    for i:=0 to 8 do
    begin
        frm_Main.canvas.pen.color:=$00404040;
        frm_Main.canvas.moveto(Button1.left+Button1.width+x,Button1.top+8);
        frm_Main.canvas.lineto(Button1.left+Button1.width+x,Button1.top+Button1.height+8);
        //画出阴影效果
        frm_Main.canvas.moveto(Button1.left+8,Button1.top+Button1.height+y);
        frm_Main.canvas.lineto(Button1.left+Button1.width+8,Button1.top+Button1.height+y);
        x:=x+1;
        y:=y+1;
    end;}
end;

procedure Tfrm_Main.Timer2Timer(Sender: TObject);

var
    tmpX:Double;
begin
    With FastLineSeries1 do
    begin
        tmpX:=XValues[1]-XValues[0];
        Delete(0);
        AddXY(XValues.Last+tmpX,Random(100),'',clTeeColor);
    end;
    With FastLineSeries2 do
    begin
        tmpX:=XValues[1]-XValues[0];
        Delete(0);
        AddXY(XValues.Last+tmpX,Random(100),'',clTeeColor);
    end;
end;

procedure Tfrm_Main.Timer3Timer(Sender: TObject);
var
    tmp:Integer;
begin
    PieSeries6.Rotate(5);
    PieSeries7.Rotate(5);
    PieSeries9.Rotate(5);
    Series1.Rotate(355);
    PieSeries8.Rotate(355);
    With Chart9.View3DOptions do
    begin
        Zoom:=Zoom-DeltaZoom;
        if (Zoom<60) or (Zoom>110) then DeltaZoom:=-DeltaZoom;
    end;
    With PieSeries8 do
    begin
        tmp:=Random(Count);
        if ExplodedSlice[tmp]>20 then
           ExplodedSlice[tmp]:=ExplodedSlice[tmp]-1
        else
           ExplodedSlice[tmp]:=ExplodedSlice[tmp]+1;
    end;
end;

procedure Tfrm_Main.SpeedButton2Click(Sender: TObject);
begin
    frm_Business_Draft:=Tfrm_Business_Draft.Create(self);
    frm_Business_Draft.ShowModal;
    frm_Business_Draft.Free;
end;

procedure Tfrm_Main.Timer4Timer(Sender: TObject);
begin
    //动态显示信息
    StatusBar1.Panels[2].Text := Copy(SysInfo, DisPos * 2 + 1, Length(SysInfo));
    Inc(DisPos);
    if DisPos * 2 + 1 > Length(SysInfo) - 1 then
    DisPos := 0;
end;

procedure Tfrm_Main.Cmd_Stock_Enter_TotalClick(Sender: TObject);
begin
    frm_Stock_Enter_Report:=Tfrm_Stock_Enter_Report.Create(self);
    frm_Stock_Enter_Report.Caption:='【采购入库统计查询】';
    frm_Stock_Enter_Report.TabSheet1.TabVisible:=True;
    frm_Stock_Enter_Report.TabSheet2.TabVisible:=False;
    frm_Stock_Enter_Report.ShowModal;
    frm_Stock_Enter_Report.Free;
end;

procedure Tfrm_Main.SpeedButton11Click(Sender: TObject);
begin
    frm_Stock_Enter_Report:=Tfrm_Stock_Enter_Report.Create(self);
    frm_Stock_Enter_Report.Caption:='【采购退货统计查询】';
    frm_Stock_Enter_Report.TabSheet2.TabVisible:=True;
    frm_Stock_Enter_Report.TabSheet1.TabVisible:=False;
    frm_Stock_Enter_Report.ShowModal;
    frm_Stock_Enter_Report.Free;
end;

end.